X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fbinaries%2Fmatitaprover%2Fmatitaprover.ml;h=35d6fd79c4ea6468bbc498b8ac175a108992b266;hb=b69275324ae2d436f2f4dbb70e0ddcbdf3886636;hp=776d0adbb6f252b5708e03957edac11cdc091c6e;hpb=772def9075b7b62870ebf4cecec6bcd37a549b1d;p=helm.git

diff --git a/helm/software/components/binaries/matitaprover/matitaprover.ml b/helm/software/components/binaries/matitaprover/matitaprover.ml
index 776d0adbb..35d6fd79c 100644
--- a/helm/software/components/binaries/matitaprover/matitaprover.ml
+++ b/helm/software/components/binaries/matitaprover/matitaprover.ml
@@ -85,8 +85,9 @@ let success_msg bag l (pp : ?margin:int -> leaf Terms.unit_clause -> string) =
     Filename.basename !problem_file);
   flush stdout;
   List.iter (fun x ->
+    let (cl,_,_) = Terms.get_from_bag x bag in
     print_endline (pp ~margin:max_int 
-      (fst(Terms.get_from_bag x bag)))) l;
+      cl)) l;
   print_endline ("% SZS output end CNFRefutation for " ^ 
     Filename.basename !problem_file)
 ;;