binary_meet is back again, with some effort

[helm.git] / helm / software / components / cic_unification / cicRefine.ml

diff --git a/helm/software/components/cic_unification/cicRefine.ml b/helm/software/components/cic_unification/cicRefine.ml
index a2c7707493bb82baafc0561e7f6418a02ea41483..45b2bce8f79b97bdd29e02e795d37cd8e32a549c 100644 (file)
--- a/helm/software/components/cic_unification/cicRefine.ml
+++ b/helm/software/components/cic_unification/cicRefine.ml
@@ -1451,7 +1451,8 @@ and type_of_aux' ?(clean_dummy_dependent_types=true) ?(localization_tbl = Cic.Ci
                   fo_unif_subst subst context metasenv newhety expty ugraph
                 in
                 let b, ugraph =
-                  CicReduction.are_convertible ~subst context infty expty ugraph
+                  CicReduction.are_convertible 
+                    ~subst ~metasenv context infty expty ugraph
                 in
                 if b then 
                   Some ((t,infty), subst, metasenv, ugraph)