src/HOL/Tools/Sledgehammer/sledgehammer_prover_atp.ML
changeset 55452 29ec8680e61f
parent 55308 dc68f6fb88d2
child 56245 84fc7dfa3cd4
equal deleted inserted replaced
55451:ea1d9408a233 55452:29ec8680e61f
   351               (if atp_proof_prefers_lifting atp_proof then liftingN else hide_lamsN)
   351               (if atp_proof_prefers_lifting atp_proof then liftingN else hide_lamsN)
   352         in
   352         in
   353           (used_facts,
   353           (used_facts,
   354            Lazy.lazy (fn () =>
   354            Lazy.lazy (fn () =>
   355              let val used_pairs = used_from |> filter_used_facts false used_facts in
   355              let val used_pairs = used_from |> filter_used_facts false used_facts in
   356                play_one_line_proof mode verbose preplay_timeout used_pairs state subgoal (hd meths)
   356                play_one_line_proof mode debug verbose preplay_timeout used_pairs state subgoal
   357                  meths
   357                  (hd meths) meths
   358              end),
   358              end),
   359            fn preplay =>
   359            fn preplay =>
   360               let
   360               let
   361                 val _ = if verbose then Output.urgent_message "Generating proof text..." else ()
   361                 val _ = if verbose then Output.urgent_message "Generating proof text..." else ()
   362                 fun isar_params () =
   362                 fun isar_params () =