src/HOL/Nominal/nominal_induct.ML
changeset 18158 57cba2a340f2
parent 18157 72e1956440ad
child 18265 f3f81becc1f1
     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