
diff -r 0c5dfd2866bb -r 3127c75275a6 Nominal/Abs.thy
--- a/Nominal/Abs.thy	Wed Mar 17 09:18:27 2010 +0100
+++ b/Nominal/Abs.thy	Wed Mar 17 09:25:01 2010 +0100
@@ -761,9 +761,9 @@
 
 lemma alpha_gen2:
   "(bs, x1, x2) \<approx>gen (\<lambda>(x1, y1) (x2, y2). R1 x1 x2 \<and> R2 y1 y2) (\<lambda>(a, b). f1 a \<union> f2 b) pi (cs, y1, y2) =
-  (f1 x1 \<union> f2 x2 - bs = f1 y1 \<union> f2 y2 - cs \<and> (f1 x1 \<union> f2 x2 - bs) \<sharp>* pi \<and> R1 (pi \<bullet> x1) y1 \<and> R2 (pi \<bullet> x2) y2)"
+  (f1 x1 \<union> f2 x2 - bs = f1 y1 \<union> f2 y2 - cs \<and> (f1 x1 \<union> f2 x2 - bs) \<sharp>* pi \<and> R1 (pi \<bullet> x1) y1 \<and> R2 (pi \<bullet> x2) y2
+  \<and> pi \<bullet> bs = cs)"
 by (simp add: alpha_gen)
 
-
 end
 




