X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=ocaml%2Fnum.ml;h=dda88a78fe8ddd34253ca7e5f0fe33a36837b327;hb=1dc1445295ffe5e83cbce853387ff0b68d56f85f;hp=cc30cb5c4f2ae5d18adacd81d8a00157d44e025c;hpb=5664c5924f59c805c6e658698cc2fa535cab27f6;p=fireball-separation.git

diff --git a/ocaml/num.ml b/ocaml/num.ml
index cc30cb5..dda88a7 100644
--- a/ocaml/num.ml
+++ b/ocaml/num.ml
@@ -104,7 +104,7 @@ let rec t_of_i_num_var =
       let bs = List.map (
         function (n,t) -> n,
          (if t = !bomb then delta
-          else L (t_of_nf (lift (liftno+1) t)))
+          else Pure.L (t_of_nf (lift (liftno+1) t)))
         ) !bs in
       let t = t_of_i_num_var t in
       let m = Scott.mk_match t bs in