equal
deleted
inserted
replaced
359 |> tap (trace_isar_proof "Minimized") |
359 |> tap (trace_isar_proof "Minimized") |
360 |> `(preplay_outcome_of_isar_proof (!preplay_data)) |
360 |> `(preplay_outcome_of_isar_proof (!preplay_data)) |
361 ||> (comment_isar_proof comment_of |
361 ||> (comment_isar_proof comment_of |
362 #> chain_isar_proof |
362 #> chain_isar_proof |
363 #> kill_useless_labels_in_isar_proof |
363 #> kill_useless_labels_in_isar_proof |
364 #> relabel_isar_proof_nicely) |
364 #> relabel_isar_proof_nicely |
|
365 #> rationalize_obtains_in_isar_proofs ctxt) |
365 in |
366 in |
366 (case add_isar_steps (steps_of_isar_proof isar_proof) 0 of |
367 (case add_isar_steps (steps_of_isar_proof isar_proof) 0 of |
367 1 => |
368 1 => |
368 one_line_proof_text ctxt 0 |
369 one_line_proof_text ctxt 0 |
369 (if play_outcome_ord (play_outcome, one_line_play) = LESS then |
370 (if play_outcome_ord (play_outcome, one_line_play) = LESS then |