tidied
authorpaulson
Thu Aug 20 16:49:47 1998 +0200 (1998-08-20)
changeset 5355a9f71e87f53e
parent 5354 da63d9b35caf
child 5356 6ef114ba5b55
tidied
src/HOL/Divides.ML
src/HOL/List.ML
src/HOL/UNITY/LessThan.ML
     1.1 --- a/src/HOL/Divides.ML	Thu Aug 20 16:47:52 1998 +0200
     1.2 +++ b/src/HOL/Divides.ML	Thu Aug 20 16:49:47 1998 +0200
     1.3 @@ -243,7 +243,7 @@
     1.4  by (excluded_middle_tac "Suc(na)<n" 1);
     1.5  (* case Suc(na) < n *)
     1.6  by (forward_tac [lessI RS less_trans] 2);
     1.7 -by (asm_simp_tac (simpset() addsimps [mod_less, less_not_refl2 RS not_sym]) 2);
     1.8 +by (asm_simp_tac (simpset() addsimps [mod_less, less_not_refl3]) 2);
     1.9  (* case n <= Suc(na) *)
    1.10  by (asm_full_simp_tac (simpset() addsimps [not_less_iff_le, mod_geq]) 1);
    1.11  by (etac (le_imp_less_or_eq RS disjE) 1);
     2.1 --- a/src/HOL/List.ML	Thu Aug 20 16:47:52 1998 +0200
     2.2 +++ b/src/HOL/List.ML	Thu Aug 20 16:49:47 1998 +0200
     2.3 @@ -168,7 +168,7 @@
     2.4  by (exhaust_tac "ys" 1);
     2.5  by (fast_tac (claset() addIs [less_add_Suc2] 
     2.6  		       addss (simpset() delsimps [length_Suc_conv])
     2.7 -                       addEs [(less_not_refl2 RS not_sym) RSN (2,rev_notE)]) 1);
     2.8 +                       addEs [(less_not_refl3) RSN (2,rev_notE)]) 1);
     2.9  by (Asm_simp_tac 1);
    2.10  qed_spec_mp "append_eq_append_conv";
    2.11  Addsimps [append_eq_append_conv];
     3.1 --- a/src/HOL/UNITY/LessThan.ML	Thu Aug 20 16:47:52 1998 +0200
     3.2 +++ b/src/HOL/UNITY/LessThan.ML	Thu Aug 20 16:49:47 1998 +0200
     3.3 @@ -50,10 +50,7 @@
     3.4  Addsimps [greaterThan_0];
     3.5  
     3.6  Goalw [greaterThan_def] "greaterThan (Suc k) = greaterThan k - {Suc k}";
     3.7 -by Safe_tac;
     3.8 -by (blast_tac (claset() addIs [less_trans]) 1);
     3.9 -by (asm_simp_tac (simpset() addsimps [le_Suc_eq, not_le_iff_less RS sym]) 1);
    3.10 -by (asm_simp_tac (simpset() addsimps [not_le_iff_less]) 1);
    3.11 +by (auto_tac (claset() addEs [nat_neqE], simpset()));
    3.12  qed "greaterThan_Suc";
    3.13  
    3.14  Goal "(INT m. greaterThan m) = {}";