eat_prods now uses mk_implicit_type.

[helm.git] / helm / ocaml / cic_unification / cicRefine.ml

diff --git a/helm/ocaml/cic_unification/cicRefine.ml b/helm/ocaml/cic_unification/cicRefine.ml
index 338928e8d9fc723edcd188c9d43da186b424a141..fbbb10a6eefecebf6af669bf81e41be57330d8c1 100644 (file)
--- 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