--- a/Nominal/Nominal2_Abs.thy Wed Nov 24 02:36:21 2010 +0000
+++ b/Nominal/Nominal2_Abs.thy Thu Nov 25 01:18:24 2010 +0000
@@ -553,7 +553,7 @@
lemma [quot_preserve]:
assumes q1: "Quotient R1 abs1 rep1"
and q2: "Quotient R2 abs2 rep2"
- shows "((abs1 ---> id) ---> (abs2 ---> id) ---> prod_fun rep1 rep2 ---> id) prod_fv = prod_fv"
+ shows "((abs1 ---> id) ---> (abs2 ---> id) ---> map_pair rep1 rep2 ---> id) prod_fv = prod_fv"
by (simp add: fun_eq_iff Quotient_abs_rep[OF q1] Quotient_abs_rep[OF q2])
lemma [mono]: