equal
deleted
inserted
replaced
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 () = |