src/Provers/blast.ML
changeset 46715 6236ca7b32a7
parent 43349 46b4f57fb034
child 53536 69c943125fd3
equal deleted inserted replaced
46714:a7ca72710dfe 46715:6236ca7b32a7
  1249           in
  1249           in
  1250           case Seq.pull(EVERY' (rev tacs) 1 st) of
  1250           case Seq.pull(EVERY' (rev tacs) 1 st) of
  1251               NONE => (writeln ("PROOF FAILED for depth " ^
  1251               NONE => (writeln ("PROOF FAILED for depth " ^
  1252                                 string_of_int lim);
  1252                                 string_of_int lim);
  1253                        backtrack trace choices)
  1253                        backtrack trace choices)
  1254             | cell => (if (trace orelse stats)
  1254             | cell => (if trace orelse stats
  1255                        then writeln (Timing.message (Timing.result start) ^ " for reconstruction")
  1255                        then writeln (Timing.message (Timing.result start) ^ " for reconstruction")
  1256                        else ();
  1256                        else ();
  1257                        Seq.make(fn()=> cell))
  1257                        Seq.make(fn()=> cell))
  1258           end
  1258           end
  1259   in
  1259   in