src/HOL/Tools/Sledgehammer/sledgehammer_run.ML
changeset 45666 d83797ef0d2d
parent 45561 57227eedce81
child 45706 418846ea4f99
equal deleted inserted replaced
45665:129db1416717 45666:d83797ef0d2d
   236         (outcome_code,
   236         (outcome_code,
   237          state
   237          state
   238          |> outcome_code = someN
   238          |> outcome_code = someN
   239             ? Proof.goal_message (fn () =>
   239             ? Proof.goal_message (fn () =>
   240                   [Pretty.str "",
   240                   [Pretty.str "",
   241                    Pretty.mark Markup.hilite (Pretty.str (message ()))]
   241                    Pretty.mark Isabelle_Markup.hilite (Pretty.str (message ()))]
   242                   |> Pretty.chunks))
   242                   |> Pretty.chunks))
   243       end
   243       end
   244     else if blocking then
   244     else if blocking then
   245       let
   245       let
   246         val (outcome_code, message) = TimeLimit.timeLimit hard_timeout go ()
   246         val (outcome_code, message) = TimeLimit.timeLimit hard_timeout go ()