# HG changeset patch
# User oheimb
# Date 863704269 -7200
# Node ID a3de7f32728ca443aaa31e217dc3b1c55521c765
# Parent  816a1f9fd620718fad1bb0563650eceb42dfb655
renamed addss to addSss, unsafe_addss to addss, extended auto_tac

diff -r 816a1f9fd620 -r a3de7f32728c src/FOL/simpdata.ML
--- a/src/FOL/simpdata.ML	Thu May 15 15:47:19 1997 +0200
+++ b/src/FOL/simpdata.ML	Thu May 15 15:51:09 1997 +0200
@@ -279,23 +279,14 @@
 			premises to all the premises *)
 
 (*Add a simpset to a classical set!*)
-infix 4 addss;
-fun cs addss ss = cs addSaltern (CHANGED o (safe_asm_more_full_simp_tac ss));
-
-(*old version, for compatibility with unstable old proofs*)
-infix 4 unsafe_addss;
-fun cs unsafe_addss ss = cs addbefore asm_full_simp_tac ss;
+infix 4 addSss addss;
+fun cs addSss ss = cs addSaltern (CHANGED o (safe_asm_more_full_simp_tac ss));
+fun cs addss  ss = cs addbefore                        asm_full_simp_tac ss;
 
 fun Addss ss = (claset := !claset addss ss);
 
 (*Designed to be idempotent, except if best_tac instantiates variables
   in some of the subgoals*)
-(*old version, for compatibility with unstable old proofs*)
-fun unsafe_auto_tac (cs,ss) = 
-    ALLGOALS (asm_full_simp_tac ss) THEN
-    REPEAT (safe_tac cs THEN ALLGOALS (asm_full_simp_tac ss)) THEN
-    REPEAT (FIRSTGOAL (best_tac (cs addss ss))) THEN
-    prune_params_tac;
 
 type clasimpset = (claset * simpset);
 
@@ -317,10 +308,13 @@
 fun op addcongs2 arg = pair_upd2 (op addcongs) arg;
 fun op delcongs2 arg = pair_upd2 (op delcongs) arg;
 
-fun auto_tac (cs,ss) = let val cs' = cs addss ss in
-EVERY [	TRY (safe_tac cs'),
-	REPEAT (FIRSTGOAL (fast_tac cs')),
-	prune_params_tac] end;
+fun auto_tac (cs,ss) = 
+    let val cs' = cs addss ss 
+    in  EVERY [TRY (safe_tac cs'),
+	       REPEAT (FIRSTGOAL (fast_tac cs')),
+               TRY (safe_tac (cs addSss ss)),
+	       prune_params_tac] 
+    end;
 
 fun Auto_tac () = auto_tac (!claset, !simpset);
 
diff -r 816a1f9fd620 -r a3de7f32728c src/HOL/simpdata.ML
--- a/src/HOL/simpdata.ML	Thu May 15 15:47:19 1997 +0200
+++ b/src/HOL/simpdata.ML	Thu May 15 15:51:09 1997 +0200
@@ -402,24 +402,14 @@
 				     safe_asm_full_simp_tac ss;
 
 (*Add a simpset to a classical set!*)
-infix 4 addss;
-fun cs addss ss = cs addSaltern (CHANGED o (safe_asm_more_full_simp_tac ss));
-(*old version, for compatibility with unstable old proofs*)
-infix 4 unsafe_addss;
-fun cs unsafe_addss ss = cs addbefore asm_full_simp_tac ss;
+infix 4 addSss addss;
+fun cs addSss ss = cs addSaltern (CHANGED o (safe_asm_more_full_simp_tac ss));
+fun cs addss  ss = cs addbefore                        asm_full_simp_tac ss;
 
 fun Addss ss = (claset := !claset addss ss);
-(*old version, for compatibility with unstable old proofs*)
-fun Unsafe_Addss ss = (claset := !claset unsafe_addss ss);
 
 (*Designed to be idempotent, except if best_tac instantiates variables
   in some of the subgoals*)
-(*old version, for compatibility with unstable old proofs*)
-fun unsafe_auto_tac (cs,ss) = 
-    ALLGOALS (asm_full_simp_tac ss) THEN
-    REPEAT   (safe_tac cs THEN ALLGOALS (asm_full_simp_tac ss)) THEN
-    REPEAT   (FIRSTGOAL (best_tac (cs addss ss))) THEN
-    prune_params_tac;
 
 type clasimpset = (claset * simpset);
 
@@ -445,6 +435,7 @@
     let val cs' = cs addss ss 
     in  EVERY [TRY (safe_tac cs'),
 	       REPEAT (FIRSTGOAL (fast_tac cs')),
+               TRY (safe_tac (cs addSss ss)),
 	       prune_params_tac] 
     end;