equal
deleted
inserted
replaced
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 |