equal
deleted
inserted
replaced
243 val state_ref = Unsynchronized.ref state |
243 val state_ref = Unsynchronized.ref state |
244 fun pprint print = |
244 fun pprint print = |
245 if mode = Auto_Try then |
245 if mode = Auto_Try then |
246 Unsynchronized.change state_ref o Proof.goal_message o K |
246 Unsynchronized.change state_ref o Proof.goal_message o K |
247 o Pretty.chunks o cons (Pretty.str "") o single |
247 o Pretty.chunks o cons (Pretty.str "") o single |
248 o Pretty.mark Isabelle_Markup.intensify |
248 o Pretty.mark Markup.intensify |
249 else |
249 else |
250 print o Pretty.string_of |
250 print o Pretty.string_of |
251 val pprint_a = pprint Output.urgent_message |
251 val pprint_a = pprint Output.urgent_message |
252 fun pprint_nt f = () |> is_mode_nt mode ? pprint Output.urgent_message o f |
252 fun pprint_nt f = () |> is_mode_nt mode ? pprint Output.urgent_message o f |
253 fun pprint_v f = () |> verbose ? pprint Output.urgent_message o f |
253 fun pprint_v f = () |> verbose ? pprint Output.urgent_message o f |