# HG changeset patch
# User Christian Urban <urbanc@in.tum.de>
# Date 1273771188 -3600
# Node ID f38adea0591cb6f44944d360b800a8a9e8110426
# Parent  abd46dfc021246b73e0022987f7622f91b0c51b4
added flip_eqvt and swap_eqvt to the equivariance lists

diff -r abd46dfc0212 -r f38adea0591c Nominal-General/Nominal2_Atoms.thy
--- a/Nominal-General/Nominal2_Atoms.thy	Thu May 13 17:41:28 2010 +0100
+++ b/Nominal-General/Nominal2_Atoms.thy	Thu May 13 18:19:48 2010 +0100
@@ -37,7 +37,7 @@
 lemma permute_flip_cancel2 [simp]: "(a \<leftrightarrow> b) \<bullet> (b \<leftrightarrow> a) \<bullet> x = x"
   by (simp add: flip_commute)
 
-lemma flip_eqvt: 
+lemma flip_eqvt[eqvt]: 
   fixes a b c::"'a::at_base"
   shows "p \<bullet> (a \<leftrightarrow> b) = (p \<bullet> a \<leftrightarrow> p \<bullet> b)"
   unfolding flip_def
diff -r abd46dfc0212 -r f38adea0591c Nominal-General/Nominal2_Eqvt.thy
--- a/Nominal-General/Nominal2_Eqvt.thy	Thu May 13 17:41:28 2010 +0100
+++ b/Nominal-General/Nominal2_Eqvt.thy	Thu May 13 18:19:48 2010 +0100
@@ -302,7 +302,7 @@
   imp_eqvt [folded induct_implies_def]
 
   (* nominal *)
-  supp_eqvt fresh_eqvt add_perm_eqvt atom_eqvt
+  supp_eqvt fresh_eqvt add_perm_eqvt atom_eqvt swap_eqvt
 
   (* datatypes *)
   Pair_eqvt permute_list.simps