changed the HOL_basic_ss back and selectively added
authorurbanc
Sun Nov 13 22:36:30 2005 +0100 (2005-11-13)
changeset 1815857cba2a340f2
parent 18157 72e1956440ad
child 18159 08282ca0402e
changed the HOL_basic_ss back and selectively added
simp_thms and triv_forall_equality. (Otherwise the
goals would have been simplified too much)
src/HOL/Nominal/nominal_induct.ML
     1.1 --- a/src/HOL/Nominal/nominal_induct.ML	Sun Nov 13 20:33:36 2005 +0100
     1.2 +++ b/src/HOL/Nominal/nominal_induct.ML	Sun Nov 13 22:36:30 2005 +0100
     1.3 @@ -56,8 +56,8 @@
     1.4        end;
     1.5  
     1.6      val simplify_rule =
     1.7 -      Simplifier.full_simplify (HOL_ss addsimps
     1.8 -        [split_conv, split_paired_All, split_paired_all]);
     1.9 +      Simplifier.full_simplify (HOL_basic_ss addsimps
    1.10 +        simp_thms @ [triv_forall_equality, split_conv, split_paired_All, split_paired_all]);
    1.11  
    1.12    in
    1.13      rule