# HG changeset patch
# User berghofe
# Date 1215039405 -7200
# Node ID d45d2850aaedb8e6c41bf47d5d04860f99041e79
# Parent  4880da911af08ad698eab8c5c3510f9f678ca90d
Replaced all but one occurrence of perm_simp_tac by perm_simproc_app,
since perm_simp_tac now behaves in a different way (due to changes
in swap_simps).

diff -r 4880da911af0 -r d45d2850aaed src/HOL/Nominal/nominal_package.ML
--- a/src/HOL/Nominal/nominal_package.ML	Thu Jul 03 00:54:45 2008 +0200
+++ b/src/HOL/Nominal/nominal_package.ML	Thu Jul 03 00:56:45 2008 +0200
@@ -1507,7 +1507,9 @@
           (Goal.prove_global thy11 [] []
             (HOLogic.mk_Trueprop (foldr1 HOLogic.mk_conj (map HOLogic.mk_imp ps)))
             (fn _ => rtac rec_induct 1 THEN REPEAT
-               (NominalPermeq.perm_simp_tac (HOL_basic_ss addsimps flat perm_simps') 1 THEN
+               (simp_tac (Simplifier.theory_context thy11 HOL_basic_ss
+                  addsimps flat perm_simps'
+                  addsimprocs [NominalPermeq.perm_simproc_app]) 1 THEN
                 (resolve_tac rec_intrs THEN_ALL_NEW
                  asm_simp_tac (HOL_ss addsimps (fresh_bij @ perm_bij))) 1))))
         val ths' = map (fn ((P, Q), th) =>
@@ -1927,8 +1929,9 @@
                     val pi1_pi2_result = Goal.prove context'' [] []
                       (HOLogic.mk_Trueprop (HOLogic.mk_eq
                         (fold_rev (mk_perm []) pi1 rhs', fold_rev (mk_perm []) pi2 lhs')))
-                      (fn _ => NominalPermeq.perm_simp_tac (HOL_ss addsimps
-                           pi1_pi2_eqs @ rec_eqns) 1 THEN
+                      (fn _ => simp_tac (Simplifier.context context'' HOL_ss
+                           addsimps pi1_pi2_eqs @ rec_eqns
+                           addsimprocs [NominalPermeq.perm_simproc_app]) 1 THEN
                          TRY (simp_tac (HOL_ss addsimps
                            (fresh_prems' @ freshs2' @ calc_atm @ perm_fresh_fresh)) 1));