# HG changeset patch
# User wenzelm
# Date 931811378 -7200
# Node ID 82a4ac9c6b039942ba8d6165f0ef8c0d7b5cb382
# Parent  2af6405a6ef35624d8d2c888983b4dbbedc39eab
local qeds: print rule;

diff -r 2af6405a6ef3 -r 82a4ac9c6b03 src/Pure/Isar/isar_thy.ML
--- a/src/Pure/Isar/isar_thy.ML	Mon Jul 12 22:29:17 1999 +0200
+++ b/src/Pure/Isar/isar_thy.ML	Mon Jul 12 22:29:38 1999 +0200
@@ -316,12 +316,18 @@
 (* print result *)
 
 fun pretty_result {kind, name, thm} =
-  Pretty.block [Pretty.str (kind ^ " " ^ name ^ ":"), Pretty.fbrk, Display.pretty_thm_no_hyps thm];
+  Pretty.block [Pretty.str (kind ^ " " ^ name ^ ":"), Pretty.fbrk, Proof.pretty_thm thm];
+
+fun pretty_rule thm =
+  Pretty.block [Pretty.str "solving goal by rule:", Pretty.fbrk, Proof.pretty_thm thm];
 
 val print_result = Pretty.writeln o pretty_result;
-fun cond_print_result int res = if int then print_result res else ();
 
-fun proof'' f = Toplevel.proof' (f o cond_print_result);
+fun cond_print_result_rule int =
+  if int then (print_result, Pretty.writeln o pretty_rule)
+  else (K (), K ());
+
+fun proof'' f = Toplevel.proof' (f o cond_print_result_rule);
 
 
 (* local endings *)
@@ -371,7 +377,7 @@
 local
 
 fun cond_print_calc int thm =
-  if int then Pretty.writeln (Pretty.big_list "calculation:" [Display.pretty_thm_no_hyps thm])
+  if int then Pretty.writeln (Pretty.big_list "calculation:" [Proof.pretty_thm thm])
   else ();
 
 fun proof''' f = Toplevel.proof' (f o cond_print_calc);