From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Tue, 3 Feb 2004 15:24:12 +0000 (+0000)
Subject: Debugging code removed.
X-Git-Tag: V_0_2_3~84
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=3a996119583c255a34fa2f5274939f78f0d940bc;p=helm.git

Debugging code removed.
---

diff --git a/helm/ocaml/cic_unification/cicMkImplicit.ml b/helm/ocaml/cic_unification/cicMkImplicit.ml
index 2da0b5a19..9db792546 100644
--- a/helm/ocaml/cic_unification/cicMkImplicit.ml
+++ b/helm/ocaml/cic_unification/cicMkImplicit.ml
@@ -149,7 +149,6 @@ let expand_implicits metasenv context term =
               (new_metasenv, (name, new_type) :: types))
             funs (metasenv, [])
         in
-List.iter (fun (_, t) -> assert (t <> Cic.Implicit)) types;
         let context' =
           (List.rev_map
             (fun (name, t) -> Some (Cic.Name name, Cic.Decl t))