X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=helm%2Fsoftware%2Fcomponents%2Fng_refiner%2FnCicMetaSubst.ml;h=9cc6ac67c755c16e4208413f1cd7565859c64557;hb=04ae8084273d40d58a391a5a530511c975fbd22d;hp=d18dd1b9da013d89b2bfd558189b5f744cd93dc2;hpb=53bd7590de050214164c4f6b5181699dc38056f6;p=helm.git

diff --git a/helm/software/components/ng_refiner/nCicMetaSubst.ml b/helm/software/components/ng_refiner/nCicMetaSubst.ml
index d18dd1b9d..9cc6ac67c 100644
--- a/helm/software/components/ng_refiner/nCicMetaSubst.ml
+++ b/helm/software/components/ng_refiner/nCicMetaSubst.ml
@@ -433,7 +433,7 @@ let delift ~unify metasenv subst context n l t =
       let lc = NCicUtils.expand_local_context lc in
       let l = List.map (NCicSubstitution.lift shift) lc in
        if
-        List.exists (fun t-> NCicUntrusted.metas_of_term subst context t = []) l
+        List.exists (fun t-> NCicUntrusted.metas_of_term subst context t <> [])l
        then
         raise (Uncertain msg)
        else