Declared thin_tac
authorpaulson
Thu, 05 Sep 1996 10:29:52 +0200
changeset 1951 f2b8005bdc6e
parent 1950 97f1c6bf3ace
child 1952 4acc84e5831f
Declared thin_tac
src/Pure/tactic.ML
--- a/src/Pure/tactic.ML	Thu Sep 05 10:29:20 1996 +0200
+++ b/src/Pure/tactic.ML	Thu Sep 05 10:29:52 1996 +0200
@@ -247,6 +247,9 @@
 (*dresolve tactic applies a RULE to replace an assumption*)
 fun dres_inst_tac sinsts rule = eres_inst_tac sinsts (make_elim_preserve rule);
 
+(*Deletion of an assumption*)
+fun thin_tac s = eres_inst_tac [("V",s)] thin_rl;
+
 (*** Applications of cut_rl ***)
 
 (*Used by metacut_tac*)