# HG changeset patch
# User wenzelm
# Date 925218815 -7200
# Node ID 0f4c2ebc5018ccd3a730be5cd0fb6474b8af552f
# Parent  ed8c5f738ab3ef4d145cc3ab4984dec68650ba1c
improved print_state;

diff -r ed8c5f738ab3 -r 0f4c2ebc5018 src/Pure/Isar/proof.ML
--- a/src/Pure/Isar/proof.ML	Tue Apr 27 15:13:18 1999 +0200
+++ b/src/Pure/Isar/proof.ML	Tue Apr 27 15:13:35 1999 +0200
@@ -28,6 +28,7 @@
   val reset_facts: state -> state
   val assert_backward: state -> state
   val enter_forward: state -> state
+  val verbose: bool ref
   val print_state: state -> unit
   type method
   val method: (thm list -> thm ->
@@ -59,7 +60,7 @@
   val at_bottom: state -> bool
   val local_qed: (state -> state Seq.seq) -> state -> state Seq.seq
   val global_qed: (state -> state Seq.seq) -> bstring option
-    -> theory attribute list option -> state -> theory * (string * string * thm)
+    -> theory attribute list option -> state -> theory * {kind: string, name: string, thm: thm}
 end;
 
 signature PROOF_PRIVATE =
@@ -265,6 +266,8 @@
 
 (** print_state **)
 
+val verbose = ProofContext.verbose;
+
 fun print_state (state as State ({context, facts, mode, goal = _}, nodes)) =
   let
     val ref (_, _, begin_goal) = Goals.current_goals_markers;
@@ -282,12 +285,15 @@
   in
     writeln ("Nesting level: " ^ string_of_int (length nodes div 2));
     writeln "";
-    writeln (mode_name mode ^ " mode");
+    writeln (enclose "`" "'" (mode_name mode) ^ " mode");
     writeln "";
-    ProofContext.print_context context;
-    writeln "";
-    print_facts facts;
-    print_goal (find_goal 0 state)
+    if ! verbose orelse mode = Forward then
+      (ProofContext.print_context context;
+        writeln "";
+        print_facts facts;
+        print_goal (find_goal 0 state))
+    else if mode = ForwardChain then print_facts facts
+    else print_goal (find_goal 0 state)
   end;
 
 
@@ -639,7 +645,7 @@
       | _ => raise STATE ("No global goal!", state));
 
     val (thy', result') = PureThy.store_thm ((name, result), atts) (theory_of state);
-  in (thy', (kind_name kind, name, result')) end;
+  in (thy', {kind = kind_name kind, name = name, thm = result'}) end;
 
 fun global_qed finalize alt_name alt_atts state =
   state