X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=helm%2Focaml%2Fparamodulation%2Futils.ml;h=5eb591c0b1450c80036f9f904e313157dd7d8238;hb=803959f90ae806a62746efe7f557ecd4b70c16ee;hp=26d97b72a650fcb00a7d5134e3a5e354ec2a9146;hpb=8c1f73782884c50c5b651a8a4e6588f494d85958;p=helm.git

diff --git a/helm/ocaml/paramodulation/utils.ml b/helm/ocaml/paramodulation/utils.ml
index 26d97b72a..5eb591c0b 100644
--- a/helm/ocaml/paramodulation/utils.ml
+++ b/helm/ocaml/paramodulation/utils.ml
@@ -566,8 +566,8 @@ let guarded_simpl context t =
   let t' = ProofEngineReduction.simpl context t in
   let simpl_order = !compare_terms t t' in
   if simpl_order = Gt then 
-    (prerr_endline ("reduce: "^(CicPp.ppterm t)^(CicPp.ppterm t'));
-     t')
+    (* prerr_endline ("reduce: "^(CicPp.ppterm t)^(CicPp.ppterm t')); *)
+  t'
   else t
 ;;