X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_paramodulation%2FnCicBlob.ml;h=46710db2137646dff91b87a887a6e01e542b5881;hb=bd3680d6b90f6c8bdda4eb4a915a86a0e806de63;hp=1e5e67979fb2f0f7f8b31010898b4343dcf99f61;hpb=c091ca7a030a85a529543de98e45c54284028b63;p=helm.git diff --git a/helm/software/components/ng_paramodulation/nCicBlob.ml b/helm/software/components/ng_paramodulation/nCicBlob.ml index 1e5e67979..46710db21 100644 --- a/helm/software/components/ng_paramodulation/nCicBlob.ml +++ b/helm/software/components/ng_paramodulation/nCicBlob.ml @@ -197,7 +197,7 @@ module NCicBlob(C : NCicContext) : Terms.Blob with type t = NCic.term = struct let amount = List.length seen in let lit,vl,proof = get_literal id in if not ongoal && id = mp then - ((*prerr_endline ("Reached meeting point, id=" ^ (string_of_int id));*) + ((*prerr_endline ("Reached m point, id=" ^ (string_of_int id));*) assert (vl = []); NCic.LetIn ("clause_" ^ string_of_int id, extract amount vl lit,