equal
deleted
inserted
replaced
478 in |
478 in |
479 ((used_facts', (meth, play_outcome)), banner, subgoal, subgoal_count) |
479 ((used_facts', (meth, play_outcome)), banner, subgoal, subgoal_count) |
480 end) |
480 end) |
481 else |
481 else |
482 one_line_params) ^ |
482 one_line_params) ^ |
483 (if isar_proofs = SOME true then "\n(No Isar proof available.)" else "") |
483 (if isar_proofs = SOME true then "\n(No Isar proof available)" else "") |
484 | (_, num_steps) => |
484 | (_, num_steps) => |
485 let |
485 let |
486 val msg = |
486 val msg = |
487 (if verbose then [string_of_int num_steps ^ " step" ^ plural_s num_steps] |
487 (if verbose then [string_of_int num_steps ^ " step" ^ plural_s num_steps] |
488 else []) @ |
488 else []) @ |