src/HOL/Tools/Sledgehammer/sledgehammer_provers.ML
changeset 43982 05ff40b255eb
parent 43962 e1d29c3ca933
child 43998 a2aa341bc658
equal deleted inserted replaced
43981:404ae49ce29f 43982:05ff40b255eb
   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