]> matita.cs.unibo.it Git - helm.git/commitdiff
Stupid bug fixed: the test to detect Uncertain cases was simply reverted.
authorClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Mon, 27 Jul 2009 13:13:45 +0000 (13:13 +0000)
committerClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Mon, 27 Jul 2009 13:13:45 +0000 (13:13 +0000)
helm/software/components/ng_refiner/nCicMetaSubst.ml

index d18dd1b9da013d89b2bfd558189b5f744cd93dc2..9cc6ac67c755c16e4208413f1cd7565859c64557 100644 (file)
@@ -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