From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Wed, 21 Sep 2005 12:10:35 +0000 (+0000)
Subject: ...
X-Git-Tag: LAST_BEFORE_NEW~68
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=6e9833ff8664143f8916caf98f0818322e7ff9a1;p=helm.git

...
---

diff --git a/helm/ocaml/paramodulation/indexing.ml b/helm/ocaml/paramodulation/indexing.ml
index 3361f5a3b..8ced53889 100644
--- a/helm/ocaml/paramodulation/indexing.ml
+++ b/helm/ocaml/paramodulation/indexing.ml
@@ -1029,13 +1029,13 @@ let rec demodulation_goal newmeta env table goal =
         in
         match proof with
         | Inference.NoProof ->
-            debug_print "replacing a NoProof";
+            debug_print (lazy "replacing a NoProof");
             pb
         | Inference.BasicProof _ ->
-            debug_print "replacing a BasicProof";
+            debug_print (lazy "replacing a BasicProof");
             pb
         | Inference.ProofGoalBlock (_, parent_proof) ->
-            debug_print "replacing another ProofGoalBlock";
+            debug_print (lazy "replacing another ProofGoalBlock");
             Inference.ProofGoalBlock (pb, parent_proof)
         | _ -> assert false
       in