X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Ftactics%2Fparamodulation%2Fsaturation.ml;h=5eb62666f2d88ed5422a897f72d1e148fa01fc1b;hb=a7587b1e68cef617779bee4ebe744ceffba6bc10;hp=3bc8eb25bf2cfb13fce3641b6b40cf793d80ecc1;hpb=5d2d801149383671c5ed9ed98fa5e85cc86a63fc;p=helm.git

diff --git a/helm/software/components/tactics/paramodulation/saturation.ml b/helm/software/components/tactics/paramodulation/saturation.ml
index 3bc8eb25b..5eb62666f 100644
--- a/helm/software/components/tactics/paramodulation/saturation.ml
+++ b/helm/software/components/tactics/paramodulation/saturation.ml
@@ -1311,7 +1311,6 @@ let infer_goal_set env active goals =
         let new' = Indexing.superposition_left env (snd active) selected in
         let metasenv, context, ugraph = env in
         let names = names_of_context context in
-        List.iter (fun (_,_,x) -> prerr_endline ("X: " ^ CicPp.pp x names)) new';
         selected::active_goals, passive_goals @ new'
     | _::tl -> aux tl
   in