show: display goal refinement rule as "state", to avoid odd Output.urgent_message and make its association with the goal more explicit;
authorwenzelm
Wed, 15 Dec 2010 20:52:20 +0100
changeset 41181 9240be8c8c69
parent 41180 a99bc6f3664b
child 41182 717404c7d59a
show: display goal refinement rule as "state", to avoid odd Output.urgent_message and make its association with the goal more explicit;
src/Pure/Isar/proof.ML
--- a/src/Pure/Isar/proof.ML	Wed Dec 15 19:41:24 2010 +0100
+++ b/src/Pure/Isar/proof.ML	Wed Dec 15 20:52:20 2010 +0100
@@ -993,7 +993,8 @@
       if ! testing then () else Proof_Display.print_results int ctxt res;
     fun print_rule ctxt th =
       if ! testing then rule := SOME th
-      else if int then Output.urgent_message (Proof_Display.string_of_rule ctxt "Successful" th)
+      else if int then
+        writeln (Markup.markup Markup.state (Proof_Display.string_of_rule ctxt "Successful" th))
       else ();
     val test_proof =
       try (local_skip_proof true)