changed the HOL_basic_ss back and selectively added
simp_thms and triv_forall_equality. (Otherwise the
goals would have been simplified too much)
--- a/src/HOL/Nominal/nominal_induct.ML Sun Nov 13 20:33:36 2005 +0100
+++ b/src/HOL/Nominal/nominal_induct.ML Sun Nov 13 22:36:30 2005 +0100
@@ -56,8 +56,8 @@
end;
val simplify_rule =
- Simplifier.full_simplify (HOL_ss addsimps
- [split_conv, split_paired_All, split_paired_all]);
+ Simplifier.full_simplify (HOL_basic_ss addsimps
+ simp_thms @ [triv_forall_equality, split_conv, split_paired_All, split_paired_all]);
in
rule