From: acondolu <andrea.condoluci@unibo.it>
Date: Fri, 1 Jun 2018 07:44:18 +0000 (+0200)
Subject: Removed warning
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=ae918f36c193172ce5316abeadf19cdaaec2cde2;p=fireball-separation.git

Removed warning
---

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