# HG changeset patch
# User paulson
# Date 958137275 -7200
# Node ID 9ac6a18d363b008a62cbe09385b7e059d4e9d058
# Parent  06d842030c1154d8da683837fb4441b60a2f53bd
tidied

diff -r 06d842030c11 -r 9ac6a18d363b src/HOL/Real/PNat.ML
--- a/src/HOL/Real/PNat.ML	Fri May 12 15:14:08 2000 +0200
+++ b/src/HOL/Real/PNat.ML	Fri May 12 15:14:35 2000 +0200
@@ -212,22 +212,21 @@
 val pnat_add_ac = [pnat_add_assoc, pnat_add_commute, pnat_add_left_commute];
 
 Goalw [pnat_add_def] "((x::pnat) + y = x + z) = (y = z)";
-by (auto_tac (claset() addDs [(inj_on_Abs_pnat RS inj_onD),
+by (auto_tac (claset() addDs [inj_on_Abs_pnat RS inj_onD,
      inj_Rep_pnat RS injD],simpset() addsimps [sum_Rep_pnat]));
 qed "pnat_add_left_cancel";
 
 Goalw [pnat_add_def] "(y + (x::pnat) = z + x) = (y = z)";
-by (auto_tac (claset() addDs [(inj_on_Abs_pnat RS inj_onD),
+by (auto_tac (claset() addDs [inj_on_Abs_pnat RS inj_onD,
      inj_Rep_pnat RS injD],simpset() addsimps [sum_Rep_pnat]));
 qed "pnat_add_right_cancel";
 
 Goalw [pnat_add_def] "!(y::pnat). x + y ~= x";
 by (rtac (Rep_pnat_inverse RS subst) 1);
-by (auto_tac (claset() addDs [(inj_on_Abs_pnat RS inj_onD)] 
+by (auto_tac (claset() addDs [inj_on_Abs_pnat RS inj_onD] 
   	               addSDs [add_eq_self_zero],
 	      simpset() addsimps [sum_Rep_pnat, Rep_pnat,Abs_pnat_inverse,
-				  Rep_pnat_gt_zero RS less_not_refl2]
-                        delsimprocs Nat_Numeral_Simprocs.cancel_numerals));
+				  Rep_pnat_gt_zero RS less_not_refl2]));
 qed "pnat_no_add_ident";
 
 
diff -r 06d842030c11 -r 9ac6a18d363b src/HOL/UNITY/Lift_prog.ML
--- a/src/HOL/UNITY/Lift_prog.ML	Fri May 12 15:14:08 2000 +0200
+++ b/src/HOL/UNITY/Lift_prog.ML	Fri May 12 15:14:35 2000 +0200
@@ -16,8 +16,6 @@
 Goal "(insert_map i x (delete_map i g)) = g(i:=x)";
 by (rtac ext 1);
 by (auto_tac (claset(), simpset() addsplits [nat_diff_split]));
-by (case_tac "d" 1);
-by (ALLGOALS Asm_simp_tac);
 qed "insert_map_delete_map_eq";
 
 (*** Injectiveness proof ***)
@@ -303,7 +301,7 @@
 \      else if i<j then insert_map j t (f(i:=s)) \
 \      else insert_map j t (f(i-1:=s)))";
 by (rtac ext 1);
-by (auto_tac (claset(), simpset() addsplits [nat_diff_split']));
+by (auto_tac (claset(), simpset() addsplits [nat_diff_split]));
 by (ALLGOALS arith_tac);
 qed "insert_map_upd";