Mercurial Mercurial > hg > nominal2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
added flip_eqvt and swap_eqvt to the equivariance lists
authorChristian Urban <urbanc@in.tum.de>
Thu, 13 May 2010 18:19:48 +0100
changeset 2129 f38adea0591c
parent 2128 abd46dfc0212
child 2130 5111dadd1162
added flip_eqvt and swap_eqvt to the equivariance lists
Nominal-General/Nominal2_Atoms.thy file | annotate | diff | comparison | revisions
Nominal-General/Nominal2_Eqvt.thy file | annotate | diff | comparison | revisions 
--- 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
--- 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
nominal2