equal
deleted
inserted
replaced
819 let |
819 let |
820 val used_ths = |
820 val used_ths = |
821 facts |> map untranslated_fact |> filter_used_facts used_facts |
821 facts |> map untranslated_fact |> filter_used_facts used_facts |
822 |> map snd |
822 |> map snd |
823 in |
823 in |
824 (if mode = Minimize then |
824 (if mode = Minimize andalso |
|
825 Time.> (preplay_timeout, Time.zeroTime) then |
825 Output.urgent_message "Preplaying proof..." |
826 Output.urgent_message "Preplaying proof..." |
826 else |
827 else |
827 ()); |
828 ()); |
828 play_one_line_proof debug preplay_timeout used_ths state subgoal |
829 play_one_line_proof debug preplay_timeout used_ths state subgoal |
829 metis_reconstructors |
830 metis_reconstructors |