src/Provers/classical.ML
changeset 1724 bb02e6976258
parent 1711 c06d01f75764
child 1800 3d9d2ef0cd3b
--- a/src/Provers/classical.ML	Mon May 06 15:22:33 1996 +0200
+++ b/src/Provers/classical.ML	Tue May 07 09:46:25 1996 +0200
@@ -84,6 +84,16 @@
   val inst_step_tac 	: claset -> int -> tactic
   val inst0_step_tac 	: claset -> int -> tactic
   val instp_step_tac 	: claset -> int -> tactic
+
+  val claset : claset ref
+  val AddDs 		: thm list -> unit
+  val AddEs 		: thm list -> unit
+  val AddIs 		: thm list -> unit
+  val AddSDs		: thm list -> unit
+  val AddSEs		: thm list -> unit
+  val AddSIs		: thm list -> unit
+  val Fast_tac 		: int -> tactic
+
   end;
 
 
@@ -445,5 +455,21 @@
 
 fun deepen_tac cs = DEEPEN (safe_depth_tac cs);
 
+val claset = ref empty_cs;
+
+fun AddDs ts = (claset := !claset addDs ts);
+
+fun AddEs ts = (claset := !claset addEs ts);
+
+fun AddIs ts = (claset := !claset addIs ts);
+
+fun AddSDs ts = (claset := !claset addSDs ts);
+
+fun AddSEs ts = (claset := !claset addSEs ts);
+
+fun AddSIs ts = (claset := !claset addSIs ts);
+
+fun Fast_tac i = fast_tac (!claset) i; 
+
 end; 
 end;