- Added mk_implicit_sort.

[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 42d792d98a71479285dcc06e5a9a0ff0b52209ed..338928e8d9fc723edcd188c9d43da186b424a141 100644 (file)
--- a/helm/ocaml/cic_unification/cicRefine.ml
+++ b/helm/ocaml/cic_unification/cicRefine.ml
@@ -484,7 +484,7 @@ and type_of_aux' metasenv context t =
           * likely to know the exact value of the result e.g. if the rhs is a
           * Sort (Prop | Set | CProp) then the result is the rhs *)
          let (metasenv,idx) =
-          CicMkImplicit.mk_implicit metasenv [] in
+          CicMkImplicit.mk_implicit_sort metasenv in
          let (subst, metasenv) =
           CicUnification.fo_unif_subst subst context_for_t2 metasenv
            (C.Meta (idx,[])) t2''