src/HOL/Tools/Sledgehammer/sledgehammer.ML
changeset 40979 e3ee5bbeb06e
parent 40978 79d2ea0e1fdb
child 40982 d06ffd777f1f
equal deleted inserted replaced
40978:79d2ea0e1fdb 40979:e3ee5bbeb06e
   478             plural_s num_facts ^ " for " ^ string_from_time iter_timeout ^ "..."
   478             plural_s num_facts ^ " for " ^ string_from_time iter_timeout ^ "..."
   479             |> Output.urgent_message
   479             |> Output.urgent_message
   480           else
   480           else
   481             ()
   481             ()
   482         val {outcome, used_facts, run_time_in_msecs} =
   482         val {outcome, used_facts, run_time_in_msecs} =
   483           TimeLimit.timeLimit iter_timeout
   483           SMT_Solver.smt_filter remote iter_timeout state facts i
   484               (SMT_Solver.smt_filter remote iter_timeout state facts) i
       
   485           handle TimeLimit.TimeOut =>
       
   486                  {outcome = SOME SMT_Failure.Time_Out, used_facts = [],
       
   487                   run_time_in_msecs = NONE}
       
   488         val _ =
   484         val _ =
   489           if verbose andalso is_some outcome then
   485           if verbose andalso is_some outcome then
   490             "SMT outcome: " ^ SMT_Failure.string_of_failure ctxt (the outcome)
   486             "SMT outcome: " ^ SMT_Failure.string_of_failure ctxt (the outcome)
   491             |> Output.urgent_message
   487             |> Output.urgent_message
   492           else
   488           else