src/Provers/blast.ML
changeset 30240 5b25fee0362c
parent 27809 a1e409db516b
child 30242 aea5d7fa7ef5
--- a/src/Provers/blast.ML	Wed Mar 04 10:43:39 2009 +0100
+++ b/src/Provers/blast.ML	Wed Mar 04 10:45:52 2009 +0100
@@ -1,5 +1,4 @@
 (*  Title:      Provers/blast.ML
-    ID:         $Id$
     Author:     Lawrence C Paulson, Cambridge University Computer Laboratory
     Copyright   1997  University of Cambridge
 
@@ -764,8 +763,8 @@
             end
       (*substitute throughout "stack frame"; extract affected formulae*)
       fun subFrame ((Gs,Hs), (changed, frames)) =
-            let val (changed', Gs') = foldr subForm (changed, []) Gs
-                val (changed'', Hs') = foldr subForm (changed', []) Hs
+            let val (changed', Gs') = List.foldr subForm (changed, []) Gs
+                val (changed'', Hs') = List.foldr subForm (changed', []) Hs
             in  (changed'', (Gs',Hs')::frames)  end
       (*substitute throughout literals; extract affected ones*)
       fun subLit (lit, (changed, nlits)) =
@@ -773,8 +772,8 @@
             in  if nlit aconv lit then (changed, nlit::nlits)
                                   else ((nlit,true)::changed, nlits)
             end
-      val (changed, lits') = foldr subLit ([], []) lits
-      val (changed', pairs') = foldr subFrame (changed, []) pairs
+      val (changed, lits') = List.foldr subLit ([], []) lits
+      val (changed', pairs') = List.foldr subFrame (changed, []) pairs
   in  if !trace then writeln ("Substituting " ^ traceTerm thy u ^
                               " for " ^ traceTerm thy t ^ " in branch" )
       else ();
@@ -913,7 +912,7 @@
 
 fun printStats (State {ntried, nclosed, ...}) (b, start, tacs) =
   if b then
-    writeln (end_timing start ^ " for search.  Closed: "
+    writeln (#message (end_timing start) ^ " for search.  Closed: "
              ^ Int.toString (!nclosed) ^
              " tried: " ^ Int.toString (!ntried) ^
              " tactics: " ^ Int.toString (length tacs))
@@ -971,7 +970,7 @@
                                     then lim - (1+log(length rules))
                                     else lim   (*discourage branching updates*)
                          val vars  = vars_in_vars vars
-                         val vars' = foldr add_terms_vars vars prems
+                         val vars' = List.foldr add_terms_vars vars prems
                          val choices' = (ntrl, nbrs, PRV) :: choices
                          val tacs' = (tac(updated,false,true))
                                      :: tacs  (*no duplication; rotate*)
@@ -1098,7 +1097,7 @@
                     then
                      let val updated = ntrl < !ntrail (*branch updated*)
                          val vars  = vars_in_vars vars
-                         val vars' = foldr add_terms_vars vars prems
+                         val vars' = List.foldr add_terms_vars vars prems
                             (*duplicate H if md permits*)
                          val dup = md (*earlier had "andalso vars' <> vars":
                                   duplicate only if the subgoal has new vars*)
@@ -1264,7 +1263,7 @@
                        else ();
                        backtrack choices)
             | cell => (if (!trace orelse !stats)
-                       then writeln (end_timing start ^ " for reconstruction")
+                       then writeln (#message (end_timing start) ^ " for reconstruction")
                        else ();
                        Seq.make(fn()=> cell))
           end