equal
deleted
inserted
replaced
306 (* toplevel transactions *) |
306 (* toplevel transactions *) |
307 |
307 |
308 local |
308 local |
309 |
309 |
310 fun timing tr t = |
310 fun timing tr t = |
311 if Timing.is_relevant t then Toplevel.status tr (Markup.timing t) else (); |
311 if Timing.is_relevant t then Toplevel.status tr (Isabelle_Markup.timing t) else (); |
312 |
312 |
313 fun proof_status tr st = |
313 fun proof_status tr st = |
314 (case try Toplevel.proof_of st of |
314 (case try Toplevel.proof_of st of |
315 SOME prf => Toplevel.status tr (Proof.status_markup prf) |
315 SOME prf => Toplevel.status tr (Proof.status_markup prf) |
316 | NONE => ()); |
316 | NONE => ()); |