equal
deleted
inserted
replaced
250 val (outcome, message) = Timeout.apply hard_timeout go () |
250 val (outcome, message) = Timeout.apply hard_timeout go () |
251 val () = check_expected_outcome ctxt prover_name expect outcome |
251 val () = check_expected_outcome ctxt prover_name expect outcome |
252 |
252 |
253 val message = message () |
253 val message = message () |
254 val () = |
254 val () = |
255 (case outcome of |
255 if mode = Auto_Try then |
256 SH_Some _ => the_default writeln writeln_result (prover_name ^ ": " ^ message) |
256 () |
257 | _ => ()) |
257 else |
|
258 (case outcome of |
|
259 SH_Some _ => the_default writeln writeln_result (prover_name ^ ": " ^ message) |
|
260 | _ => ()) |
258 in |
261 in |
259 (outcome, message) |
262 (outcome, message) |
260 end |
263 end |
261 |
264 |
262 fun string_of_facts filter facts = |
265 fun string_of_facts filter facts = |
450 (launch_provers () |
453 (launch_provers () |
451 handle Timeout.TIMEOUT _ => (SH_Timeout, "")) |
454 handle Timeout.TIMEOUT _ => (SH_Timeout, "")) |
452 |> `(fn (outcome, _) => |
455 |> `(fn (outcome, _) => |
453 (case outcome of |
456 (case outcome of |
454 SH_Some _ => (print "QED"; true) |
457 SH_Some _ => (print "QED"; true) |
455 | _ => (print "Sorry"; false))) |
458 | _ => (print "No proof found"; false))) |
456 end) |
459 end) |
457 |
460 |
458 end; |
461 end; |