src/HOL/Tools/Sledgehammer/sledgehammer_isar.ML
changeset 55327 3c7f3122ccdc
parent 55325 462ffd3b7065
child 55329 3c2dbd2e221f
equal deleted inserted replaced
55326:cc627ced3874 55327:3c7f3122ccdc
   320           |> tap (trace_isar_proof "Compressed")
   320           |> tap (trace_isar_proof "Compressed")
   321           |> postprocess_isar_proof_remove_unreferenced_steps
   321           |> postprocess_isar_proof_remove_unreferenced_steps
   322                (keep_fastest_method_of_isar_step (!preplay_data)
   322                (keep_fastest_method_of_isar_step (!preplay_data)
   323                 #> minimize ? minimize_isar_step_dependencies ctxt preplay_data)
   323                 #> minimize ? minimize_isar_step_dependencies ctxt preplay_data)
   324           |> tap (trace_isar_proof "Minimized")
   324           |> tap (trace_isar_proof "Minimized")
       
   325           |> minimize
       
   326                ? (compress_isar_proof ctxt compress_isar preplay_data
       
   327                   #> tap (trace_isar_proof "Compressed again"))
   325           |> `(preplay_outcome_of_isar_proof (!preplay_data))
   328           |> `(preplay_outcome_of_isar_proof (!preplay_data))
   326           ||> (comment_isar_proof comment_of
   329           ||> (comment_isar_proof comment_of
   327                #> chain_isar_proof
   330                #> chain_isar_proof
   328                #> kill_useless_labels_in_isar_proof
   331                #> kill_useless_labels_in_isar_proof
   329                #> relabel_isar_proof_nicely)
   332                #> relabel_isar_proof_nicely)