--- a/Nominal/Abs.thy Wed Apr 14 20:21:11 2010 +0200
+++ b/Nominal/Abs.thy Wed Apr 14 22:23:52 2010 +0200
@@ -762,7 +762,7 @@
by (simp_all add: fresh_plus_perm)
-lemma alpha_gen_eqvt[eqvt]:
+lemma alpha_gen_eqvt(*[eqvt]*):
shows "(bs, x) \<approx>gen R f q (cs, y) \<Longrightarrow> (p \<bullet> bs, p \<bullet> x) \<approx>gen (p \<bullet> R) (p \<bullet> f) (p \<bullet> q) (p \<bullet> cs, p \<bullet> y)"
and "(bs, x) \<approx>res R f q (cs, y) \<Longrightarrow> (p \<bullet> bs, p \<bullet> x) \<approx>res (p \<bullet> R) (p \<bullet> f) (p \<bullet> q) (p \<bullet> cs, p \<bullet> y)"
and "(ds, x) \<approx>lst R f q (es, y) \<Longrightarrow> (p \<bullet> ds, p \<bullet> x) \<approx>lst (p \<bullet> R) (p \<bullet> f) (p \<bullet> q) (p \<bullet> es, p \<bullet> y)"