]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/ocaml/paramodulation/utils.ml
removed debugging printing
[helm.git] / helm / ocaml / paramodulation / utils.ml
index 26d97b72a650fcb00a7d5134e3a5e354ec2a9146..5eb591c0b1450c80036f9f904e313157dd7d8238 100644 (file)
@@ -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
 ;;