added print_mode three_buffersN and corresponding cond_print;
authorwenzelm
Wed, 29 Jun 2005 15:13:35 +0200
changeset 16605 4590c1f79050
parent 16604 6207f475bebb
child 16606 e45c9a95a554
added print_mode three_buffersN and corresponding cond_print;
src/Pure/Isar/isar_thy.ML
--- a/src/Pure/Isar/isar_thy.ML	Wed Jun 29 15:13:34 2005 +0200
+++ b/src/Pure/Isar/isar_thy.ML	Wed Jun 29 15:13:35 2005 +0200
@@ -128,6 +128,8 @@
   val apply: Method.text -> ProofHistory.T -> ProofHistory.T
   val apply_end: Method.text -> ProofHistory.T -> ProofHistory.T
   val proof: Method.text option -> ProofHistory.T -> ProofHistory.T
+  val three_buffersN: string
+  val cond_print: Toplevel.transition -> Toplevel.transition
   val qed: Method.text option -> Toplevel.transition -> Toplevel.transition
   val terminal_proof: Method.text * Method.text option
     -> Toplevel.transition -> Toplevel.transition
@@ -459,6 +461,9 @@
 
 (* local endings *)
 
+val three_buffersN = "three_buffers";
+val cond_print = Toplevel.print' three_buffersN;
+
 val local_qed = proof'' o (ProofHistory.applys oo Method.local_qed true);
 val skip_local_qed =
   Toplevel.skip_proof (History.apply (fn i => if i > 1 then i - 1 else raise Toplevel.UNDEF));