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