src/HOL/Tools/Sledgehammer/sledgehammer_isar.ML
changeset 55275 e1bf9f0c5420
parent 55274 b84867d6550b
child 55279 df41d34d1324
equal deleted inserted replaced
55274:b84867d6550b 55275:e1bf9f0c5420
   312         val (play_outcome, isar_proof) =
   312         val (play_outcome, isar_proof) =
   313           canonical_isar_proof
   313           canonical_isar_proof
   314           |> tap (trace_isar_proof "Original")
   314           |> tap (trace_isar_proof "Original")
   315           |> compress_isar_proof ctxt compress_isar preplay_data
   315           |> compress_isar_proof ctxt compress_isar preplay_data
   316           |> tap (trace_isar_proof "Compressed")
   316           |> tap (trace_isar_proof "Compressed")
   317           |> tap (trace_isar_proof "Tried0")
       
   318           |> postprocess_isar_proof_remove_unreferenced_steps
   317           |> postprocess_isar_proof_remove_unreferenced_steps
   319                (keep_fastest_method_of_isar_step (!preplay_data)
   318                (keep_fastest_method_of_isar_step (!preplay_data)
   320                 #> minimize ? minimize_isar_step_dependencies ctxt preplay_data)
   319                 #> minimize ? minimize_isar_step_dependencies ctxt preplay_data)
   321           |> tap (trace_isar_proof "Minimized")
   320           |> tap (trace_isar_proof "Minimized")
   322           |> `(preplay_outcome_of_isar_proof (!preplay_data))
   321           |> `(preplay_outcome_of_isar_proof (!preplay_data))