equal
deleted
inserted
replaced
360 val tac = EVERY (tacsf prems) |
360 val tac = EVERY (tacsf prems) |
361 fun statef() = |
361 fun statef() = |
362 (case Seq.pull (tac st0) of |
362 (case Seq.pull (tac st0) of |
363 SOME(st,_) => st |
363 SOME(st,_) => st |
364 | _ => error ("prove_goal: tactic failed")) |
364 | _ => error ("prove_goal: tactic failed")) |
365 in mkresult (check, cond_timeit (!Output.timing) "" statef) end |
365 in mkresult (check, cond_timeit (!Output.timing) "" statef) end; |
366 handle e => (print_sign_exn_unit (Thm.theory_of_cterm chorn) e; |
|
367 writeln ("The exception above was raised for\n" ^ |
|
368 Display.string_of_cterm chorn); raise e); |
|
369 |
366 |
370 (*Two variants: one checking the result, one not. |
367 (*Two variants: one checking the result, one not. |
371 Neither prints runtime messages: they are for internal packages.*) |
368 Neither prints runtime messages: they are for internal packages.*) |
372 fun prove_goalw_cterm rths chorn = |
369 fun prove_goalw_cterm rths chorn = |
373 setmp Output.timing false (prove_goalw_cterm_general true rths chorn) |
370 setmp Output.timing false (prove_goalw_cterm_general true rths chorn) |