--- a/src/Pure/Isar/isar_cmd.ML Tue Sep 19 23:15:24 2006 +0200
+++ b/src/Pure/Isar/isar_cmd.ML Tue Sep 19 23:15:26 2006 +0200
@@ -43,7 +43,7 @@
val print_drafts: Path.T list -> Toplevel.transition -> Toplevel.transition
val pretty_setmargin: int -> Toplevel.transition -> Toplevel.transition
val print_context: Toplevel.transition -> Toplevel.transition
- val print_theory: Toplevel.transition -> Toplevel.transition
+ val print_theory: bool -> Toplevel.transition -> Toplevel.transition
val print_syntax: Toplevel.transition -> Toplevel.transition
val print_theorems: Toplevel.transition -> Toplevel.transition
val print_locales: Toplevel.transition -> Toplevel.transition
@@ -218,8 +218,8 @@
val print_context = Toplevel.keep Toplevel.print_state_context;
-val print_theory = Toplevel.unknown_theory o
- Toplevel.keep (ProofDisplay.print_theory o Toplevel.theory_of);
+fun print_theory verbose = Toplevel.unknown_theory o
+ Toplevel.keep (ProofDisplay.print_full_theory verbose o Toplevel.theory_of);
val print_syntax = Toplevel.unknown_theory o
Toplevel.keep (Display.print_syntax o Toplevel.theory_of) o