]> matita.cs.unibo.it Git - helm.git/commitdiff
removed a bad prerr_endline
authorEnrico Tassi <enrico.tassi@inria.fr>
Sat, 20 May 2006 10:11:47 +0000 (10:11 +0000)
committerEnrico Tassi <enrico.tassi@inria.fr>
Sat, 20 May 2006 10:11:47 +0000 (10:11 +0000)
helm/software/components/tactics/paramodulation/saturation.ml

index 8a31d6253430959c17f62fe5f23352a6e84db9f3..c8e74642b6cbdae7be949c101c239ee27cd3d5b8 100644 (file)
@@ -1837,7 +1837,7 @@ let saturate
           proof goalno (CicMetaSubst.apply_subst final_subst) real_menv
       in
       let open_goals = 
-        match free_meta with Some (Cic.Meta (m,_)) -> [m] | _ -> [] 
+        match free_meta with Some(Cic.Meta(m,_)) when m<>goalno ->[m] | _ ->[] 
       in
       Printf.eprintf 
         "GOALS APERTI: %s\nMETASENV PRIMA:\n%s\nMETASENV DOPO:\n%s\n"