src/HOL/Tools/Sledgehammer/sledgehammer_isar.ML
changeset 57792 9cb24c835284
parent 57791 d80d3fb56270
child 58061 3d060f43accb
equal deleted inserted replaced
57791:d80d3fb56270 57792:9cb24c835284
   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