added print_trans_rules, print_antiquotations;
authorwenzelm
Sat, 01 Jul 2000 19:42:50 +0200
changeset 9219 84af672218b9
parent 9218 fdecb23119c0
child 9220 d0506ced27c8
added print_trans_rules, print_antiquotations;
src/Pure/Isar/isar_cmd.ML
--- a/src/Pure/Isar/isar_cmd.ML	Sat Jul 01 19:42:25 2000 +0200
+++ b/src/Pure/Isar/isar_cmd.ML	Sat Jul 01 19:42:50 2000 +0200
@@ -45,7 +45,9 @@
   val print_syntax: Toplevel.transition -> Toplevel.transition
   val print_theorems: Toplevel.transition -> Toplevel.transition
   val print_attributes: Toplevel.transition -> Toplevel.transition
+  val print_trans_rules: Toplevel.transition -> Toplevel.transition
   val print_methods: Toplevel.transition -> Toplevel.transition
+  val print_antiquotations: Toplevel.transition -> Toplevel.transition
   val print_thms_containing: xstring list -> Toplevel.transition -> Toplevel.transition
   val print_binds: Toplevel.transition -> Toplevel.transition
   val print_lthms: Toplevel.transition -> Toplevel.transition
@@ -162,7 +164,10 @@
 val print_syntax = Toplevel.keep (Display.print_syntax o Toplevel.theory_of);
 val print_theorems = Toplevel.keep (PureThy.print_theorems o Toplevel.theory_of);
 val print_attributes = Toplevel.keep (Attrib.print_attributes o Toplevel.theory_of);
+val print_trans_rules = Toplevel.keep (Toplevel.node_case Calculation.print_global_rules
+  (Calculation.print_local_rules o Proof.context_of));
 val print_methods = Toplevel.keep (Method.print_methods o Toplevel.theory_of);
+val print_antiquotations = Toplevel.imperative IsarOutput.print_antiquotations;
 
 fun print_thms_containing cs = Toplevel.keep (fn state =>
   ThmDatabase.print_thms_containing (Toplevel.theory_of state) cs);