added stdlib_dir entry

[helm.git] / helm / ocaml / paramodulation / utils.ml

diff --git a/helm/ocaml/paramodulation/utils.ml b/helm/ocaml/paramodulation/utils.ml
index 0a2cd4502a02cea18d16865ddaf2719f62971265..5eb591c0b1450c80036f9f904e313157dd7d8238 100644 (file)
--- a/helm/ocaml/paramodulation/utils.ml
+++ b/helm/ocaml/paramodulation/utils.ml
@@ -23,6 +23,8 @@
  * http://cs.unibo.it/helm/.
  *)
 
+(* $Id$ *)
+
 let debug = true;;
 
 let debug_print s = if debug then prerr_endline (Lazy.force s);;
@@ -564,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
 ;;