From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Mon, 9 Feb 2004 09:27:25 +0000 (+0000)
Subject: eat_prods now uses mk_implicit_type.
X-Git-Tag: V_0_2_3~4
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=b82f304b26de27ec6f59faa29ec41eadd221cfa8;p=helm.git

eat_prods now uses mk_implicit_type.
---

diff --git a/helm/ocaml/cic_unification/cicRefine.ml b/helm/ocaml/cic_unification/cicRefine.ml
index 338928e8d..fbbb10a6e 100644
--- a/helm/ocaml/cic_unification/cicRefine.ml
+++ b/helm/ocaml/cic_unification/cicRefine.ml
@@ -527,7 +527,7 @@ and type_of_aux' metasenv context t =
        in
        let context'' = Some (name, Cic.Decl argty') :: context' in
        let (metasenv, idx) =
-        CicMkImplicit.mk_implicit metasenv (context'' @ context) in
+        CicMkImplicit.mk_implicit_type metasenv (context'' @ context) in
        let irl =
          (Some (Cic.Rel 1))::args' @
           (CicMkImplicit.identity_relocation_list_for_metavariable ~start:2