Theorem xpcomco 8609

Description: Composition with the bijection of xpcomf1o 8608 swaps the arguments to a mapping. (Contributed by Mario Carneiro, 30-May-2015.)

Hypotheses

Ref	Expression
xpcomf1o.1	⊢ 𝐹 = (𝑥 ∈ (𝐴 × 𝐵) ↦ ∪ ◡{𝑥})
xpcomco.1	⊢ 𝐺 = (𝑦 ∈ 𝐵, 𝑧 ∈ 𝐴 ↦ 𝐶)

Assertion

Ref	Expression
xpcomco	⊢ (𝐺 ∘ 𝐹) = (𝑧 ∈ 𝐴, 𝑦 ∈ 𝐵 ↦ 𝐶)

Distinct variable groups:   𝑥,𝑦,𝑧,𝐴   𝑥,𝐵,𝑦,𝑧   𝑦,𝐹,𝑧

Allowed substitution hints:   𝐶(𝑥,𝑦,𝑧)   𝐹(𝑥)   𝐺(𝑥,𝑦,𝑧)

Proof of Theorem xpcomco

Dummy variables 𝑣 𝑢 𝑤 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		xpcomf1o.1	. . . . . . . . . 10 ⊢ 𝐹 = (𝑥 ∈ (𝐴 × 𝐵) ↦ ∪ ◡{𝑥})
2	1	xpcomf1o 8608	. . . . . . . . 9 ⊢ 𝐹:(𝐴 × 𝐵)–1-1-onto→(𝐵 × 𝐴)
3		f1ofun 6619	. . . . . . . . 9 ⊢ (𝐹:(𝐴 × 𝐵)–1-1-onto→(𝐵 × 𝐴) → Fun 𝐹)
4		funbrfv2b 6725	. . . . . . . . 9 ⊢ (Fun 𝐹 → (𝑢𝐹𝑤 ↔ (𝑢 ∈ dom 𝐹 ∧ (𝐹‘𝑢) = 𝑤)))
5	2, 3, 4	mp2b 10	. . . . . . . 8 ⊢ (𝑢𝐹𝑤 ↔ (𝑢 ∈ dom 𝐹 ∧ (𝐹‘𝑢) = 𝑤))
6		ancom 463	. . . . . . . 8 ⊢ ((𝑢 ∈ dom 𝐹 ∧ (𝐹‘𝑢) = 𝑤) ↔ ((𝐹‘𝑢) = 𝑤 ∧ 𝑢 ∈ dom 𝐹))
7		eqcom 2830	. . . . . . . . 9 ⊢ ((𝐹‘𝑢) = 𝑤 ↔ 𝑤 = (𝐹‘𝑢))
8		f1odm 6621	. . . . . . . . . . 11 ⊢ (𝐹:(𝐴 × 𝐵)–1-1-onto→(𝐵 × 𝐴) → dom 𝐹 = (𝐴 × 𝐵))
9	2, 8	ax-mp 5	. . . . . . . . . 10 ⊢ dom 𝐹 = (𝐴 × 𝐵)
10	9	eleq2i 2906	. . . . . . . . 9 ⊢ (𝑢 ∈ dom 𝐹 ↔ 𝑢 ∈ (𝐴 × 𝐵))
11	7, 10	anbi12i 628	. . . . . . . 8 ⊢ (((𝐹‘𝑢) = 𝑤 ∧ 𝑢 ∈ dom 𝐹) ↔ (𝑤 = (𝐹‘𝑢) ∧ 𝑢 ∈ (𝐴 × 𝐵)))
12	5, 6, 11	3bitri 299	. . . . . . 7 ⊢ (𝑢𝐹𝑤 ↔ (𝑤 = (𝐹‘𝑢) ∧ 𝑢 ∈ (𝐴 × 𝐵)))
13	12	anbi1i 625	. . . . . 6 ⊢ ((𝑢𝐹𝑤 ∧ 𝑤𝐺𝑣) ↔ ((𝑤 = (𝐹‘𝑢) ∧ 𝑢 ∈ (𝐴 × 𝐵)) ∧ 𝑤𝐺𝑣))
14		anass 471	. . . . . 6 ⊢ (((𝑤 = (𝐹‘𝑢) ∧ 𝑢 ∈ (𝐴 × 𝐵)) ∧ 𝑤𝐺𝑣) ↔ (𝑤 = (𝐹‘𝑢) ∧ (𝑢 ∈ (𝐴 × 𝐵) ∧ 𝑤𝐺𝑣)))
15	13, 14	bitri 277	. . . . 5 ⊢ ((𝑢𝐹𝑤 ∧ 𝑤𝐺𝑣) ↔ (𝑤 = (𝐹‘𝑢) ∧ (𝑢 ∈ (𝐴 × 𝐵) ∧ 𝑤𝐺𝑣)))
16	15	exbii 1848	. . . 4 ⊢ (∃𝑤(𝑢𝐹𝑤 ∧ 𝑤𝐺𝑣) ↔ ∃𝑤(𝑤 = (𝐹‘𝑢) ∧ (𝑢 ∈ (𝐴 × 𝐵) ∧ 𝑤𝐺𝑣)))
17		fvex 6685	. . . . 5 ⊢ (𝐹‘𝑢) ∈ V
18		breq1 5071	. . . . . 6 ⊢ (𝑤 = (𝐹‘𝑢) → (𝑤𝐺𝑣 ↔ (𝐹‘𝑢)𝐺𝑣))
19	18	anbi2d 630	. . . . 5 ⊢ (𝑤 = (𝐹‘𝑢) → ((𝑢 ∈ (𝐴 × 𝐵) ∧ 𝑤𝐺𝑣) ↔ (𝑢 ∈ (𝐴 × 𝐵) ∧ (𝐹‘𝑢)𝐺𝑣)))
20	17, 19	ceqsexv 3543	. . . 4 ⊢ (∃𝑤(𝑤 = (𝐹‘𝑢) ∧ (𝑢 ∈ (𝐴 × 𝐵) ∧ 𝑤𝐺𝑣)) ↔ (𝑢 ∈ (𝐴 × 𝐵) ∧ (𝐹‘𝑢)𝐺𝑣))
21		elxp 5580	. . . . . 6 ⊢ (𝑢 ∈ (𝐴 × 𝐵) ↔ ∃𝑧∃𝑦(𝑢 = ⟨𝑧, 𝑦⟩ ∧ (𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵)))
22	21	anbi1i 625	. . . . 5 ⊢ ((𝑢 ∈ (𝐴 × 𝐵) ∧ (𝐹‘𝑢)𝐺𝑣) ↔ (∃𝑧∃𝑦(𝑢 = ⟨𝑧, 𝑦⟩ ∧ (𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵)) ∧ (𝐹‘𝑢)𝐺𝑣))
23		nfcv 2979	. . . . . . 7 ⊢ Ⅎ𝑧(𝐹‘𝑢)
24		xpcomco.1	. . . . . . . 8 ⊢ 𝐺 = (𝑦 ∈ 𝐵, 𝑧 ∈ 𝐴 ↦ 𝐶)
25		nfmpo2 7237	. . . . . . . 8 ⊢ Ⅎ𝑧(𝑦 ∈ 𝐵, 𝑧 ∈ 𝐴 ↦ 𝐶)
26	24, 25	nfcxfr 2977	. . . . . . 7 ⊢ Ⅎ𝑧𝐺
27		nfcv 2979	. . . . . . 7 ⊢ Ⅎ𝑧𝑣
28	23, 26, 27	nfbr 5115	. . . . . 6 ⊢ Ⅎ𝑧(𝐹‘𝑢)𝐺𝑣
29	28	19.41 2237	. . . . 5 ⊢ (∃𝑧(∃𝑦(𝑢 = ⟨𝑧, 𝑦⟩ ∧ (𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵)) ∧ (𝐹‘𝑢)𝐺𝑣) ↔ (∃𝑧∃𝑦(𝑢 = ⟨𝑧, 𝑦⟩ ∧ (𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵)) ∧ (𝐹‘𝑢)𝐺𝑣))
30		nfcv 2979	. . . . . . . . 9 ⊢ Ⅎ𝑦(𝐹‘𝑢)
31		nfmpo1 7236	. . . . . . . . . 10 ⊢ Ⅎ𝑦(𝑦 ∈ 𝐵, 𝑧 ∈ 𝐴 ↦ 𝐶)
32	24, 31	nfcxfr 2977	. . . . . . . . 9 ⊢ Ⅎ𝑦𝐺
33		nfcv 2979	. . . . . . . . 9 ⊢ Ⅎ𝑦𝑣
34	30, 32, 33	nfbr 5115	. . . . . . . 8 ⊢ Ⅎ𝑦(𝐹‘𝑢)𝐺𝑣
35	34	19.41 2237	. . . . . . 7 ⊢ (∃𝑦((𝑢 = ⟨𝑧, 𝑦⟩ ∧ (𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵)) ∧ (𝐹‘𝑢)𝐺𝑣) ↔ (∃𝑦(𝑢 = ⟨𝑧, 𝑦⟩ ∧ (𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵)) ∧ (𝐹‘𝑢)𝐺𝑣))
36		anass 471	. . . . . . . . 9 ⊢ (((𝑢 = ⟨𝑧, 𝑦⟩ ∧ (𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵)) ∧ (𝐹‘𝑢)𝐺𝑣) ↔ (𝑢 = ⟨𝑧, 𝑦⟩ ∧ ((𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ (𝐹‘𝑢)𝐺𝑣)))
37		fveq2 6672	. . . . . . . . . . . . . 14 ⊢ (𝑢 = ⟨𝑧, 𝑦⟩ → (𝐹‘𝑢) = (𝐹‘⟨𝑧, 𝑦⟩))
38		opelxpi 5594	. . . . . . . . . . . . . . 15 ⊢ ((𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) → ⟨𝑧, 𝑦⟩ ∈ (𝐴 × 𝐵))
39		sneq 4579	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 = ⟨𝑧, 𝑦⟩ → {𝑥} = {⟨𝑧, 𝑦⟩})
40	39	cnveqd 5748	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 = ⟨𝑧, 𝑦⟩ → ◡{𝑥} = ◡{⟨𝑧, 𝑦⟩})
41	40	unieqd 4854	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 = ⟨𝑧, 𝑦⟩ → ∪ ◡{𝑥} = ∪ ◡{⟨𝑧, 𝑦⟩})
42		opswap 6088	. . . . . . . . . . . . . . . . 17 ⊢ ∪ ◡{⟨𝑧, 𝑦⟩} = ⟨𝑦, 𝑧⟩
43	41, 42	syl6eq 2874	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = ⟨𝑧, 𝑦⟩ → ∪ ◡{𝑥} = ⟨𝑦, 𝑧⟩)
44		opex 5358	. . . . . . . . . . . . . . . 16 ⊢ ⟨𝑦, 𝑧⟩ ∈ V
45	43, 1, 44	fvmpt 6770	. . . . . . . . . . . . . . 15 ⊢ (⟨𝑧, 𝑦⟩ ∈ (𝐴 × 𝐵) → (𝐹‘⟨𝑧, 𝑦⟩) = ⟨𝑦, 𝑧⟩)
46	38, 45	syl 17	. . . . . . . . . . . . . 14 ⊢ ((𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) → (𝐹‘⟨𝑧, 𝑦⟩) = ⟨𝑦, 𝑧⟩)
47	37, 46	sylan9eq 2878	. . . . . . . . . . . . 13 ⊢ ((𝑢 = ⟨𝑧, 𝑦⟩ ∧ (𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵)) → (𝐹‘𝑢) = ⟨𝑦, 𝑧⟩)
48	47	breq1d 5078	. . . . . . . . . . . 12 ⊢ ((𝑢 = ⟨𝑧, 𝑦⟩ ∧ (𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵)) → ((𝐹‘𝑢)𝐺𝑣 ↔ ⟨𝑦, 𝑧⟩𝐺𝑣))
49		df-br 5069	. . . . . . . . . . . . . . . 16 ⊢ (⟨𝑦, 𝑧⟩𝐺𝑣 ↔ ⟨⟨𝑦, 𝑧⟩, 𝑣⟩ ∈ 𝐺)
50		df-mpo 7163	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑦 ∈ 𝐵, 𝑧 ∈ 𝐴 ↦ 𝐶) = {⟨⟨𝑦, 𝑧⟩, 𝑣⟩ ∣ ((𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐴) ∧ 𝑣 = 𝐶)}
51	24, 50	eqtri 2846	. . . . . . . . . . . . . . . . 17 ⊢ 𝐺 = {⟨⟨𝑦, 𝑧⟩, 𝑣⟩ ∣ ((𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐴) ∧ 𝑣 = 𝐶)}
52	51	eleq2i 2906	. . . . . . . . . . . . . . . 16 ⊢ (⟨⟨𝑦, 𝑧⟩, 𝑣⟩ ∈ 𝐺 ↔ ⟨⟨𝑦, 𝑧⟩, 𝑣⟩ ∈ {⟨⟨𝑦, 𝑧⟩, 𝑣⟩ ∣ ((𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐴) ∧ 𝑣 = 𝐶)})
53		oprabidw 7189	. . . . . . . . . . . . . . . 16 ⊢ (⟨⟨𝑦, 𝑧⟩, 𝑣⟩ ∈ {⟨⟨𝑦, 𝑧⟩, 𝑣⟩ ∣ ((𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐴) ∧ 𝑣 = 𝐶)} ↔ ((𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐴) ∧ 𝑣 = 𝐶))
54	49, 52, 53	3bitri 299	. . . . . . . . . . . . . . 15 ⊢ (⟨𝑦, 𝑧⟩𝐺𝑣 ↔ ((𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐴) ∧ 𝑣 = 𝐶))
55	54	baib 538	. . . . . . . . . . . . . 14 ⊢ ((𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐴) → (⟨𝑦, 𝑧⟩𝐺𝑣 ↔ 𝑣 = 𝐶))
56	55	ancoms 461	. . . . . . . . . . . . 13 ⊢ ((𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) → (⟨𝑦, 𝑧⟩𝐺𝑣 ↔ 𝑣 = 𝐶))
57	56	adantl 484	. . . . . . . . . . . 12 ⊢ ((𝑢 = ⟨𝑧, 𝑦⟩ ∧ (𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵)) → (⟨𝑦, 𝑧⟩𝐺𝑣 ↔ 𝑣 = 𝐶))
58	48, 57	bitrd 281	. . . . . . . . . . 11 ⊢ ((𝑢 = ⟨𝑧, 𝑦⟩ ∧ (𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵)) → ((𝐹‘𝑢)𝐺𝑣 ↔ 𝑣 = 𝐶))
59	58	pm5.32da 581	. . . . . . . . . 10 ⊢ (𝑢 = ⟨𝑧, 𝑦⟩ → (((𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ (𝐹‘𝑢)𝐺𝑣) ↔ ((𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ 𝑣 = 𝐶)))
60	59	pm5.32i 577	. . . . . . . . 9 ⊢ ((𝑢 = ⟨𝑧, 𝑦⟩ ∧ ((𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ (𝐹‘𝑢)𝐺𝑣)) ↔ (𝑢 = ⟨𝑧, 𝑦⟩ ∧ ((𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ 𝑣 = 𝐶)))
61	36, 60	bitri 277	. . . . . . . 8 ⊢ (((𝑢 = ⟨𝑧, 𝑦⟩ ∧ (𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵)) ∧ (𝐹‘𝑢)𝐺𝑣) ↔ (𝑢 = ⟨𝑧, 𝑦⟩ ∧ ((𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ 𝑣 = 𝐶)))
62	61	exbii 1848	. . . . . . 7 ⊢ (∃𝑦((𝑢 = ⟨𝑧, 𝑦⟩ ∧ (𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵)) ∧ (𝐹‘𝑢)𝐺𝑣) ↔ ∃𝑦(𝑢 = ⟨𝑧, 𝑦⟩ ∧ ((𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ 𝑣 = 𝐶)))
63	35, 62	bitr3i 279	. . . . . 6 ⊢ ((∃𝑦(𝑢 = ⟨𝑧, 𝑦⟩ ∧ (𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵)) ∧ (𝐹‘𝑢)𝐺𝑣) ↔ ∃𝑦(𝑢 = ⟨𝑧, 𝑦⟩ ∧ ((𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ 𝑣 = 𝐶)))
64	63	exbii 1848	. . . . 5 ⊢ (∃𝑧(∃𝑦(𝑢 = ⟨𝑧, 𝑦⟩ ∧ (𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵)) ∧ (𝐹‘𝑢)𝐺𝑣) ↔ ∃𝑧∃𝑦(𝑢 = ⟨𝑧, 𝑦⟩ ∧ ((𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ 𝑣 = 𝐶)))
65	22, 29, 64	3bitr2i 301	. . . 4 ⊢ ((𝑢 ∈ (𝐴 × 𝐵) ∧ (𝐹‘𝑢)𝐺𝑣) ↔ ∃𝑧∃𝑦(𝑢 = ⟨𝑧, 𝑦⟩ ∧ ((𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ 𝑣 = 𝐶)))
66	16, 20, 65	3bitri 299	. . 3 ⊢ (∃𝑤(𝑢𝐹𝑤 ∧ 𝑤𝐺𝑣) ↔ ∃𝑧∃𝑦(𝑢 = ⟨𝑧, 𝑦⟩ ∧ ((𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ 𝑣 = 𝐶)))
67	66	opabbii 5135	. 2 ⊢ {⟨𝑢, 𝑣⟩ ∣ ∃𝑤(𝑢𝐹𝑤 ∧ 𝑤𝐺𝑣)} = {⟨𝑢, 𝑣⟩ ∣ ∃𝑧∃𝑦(𝑢 = ⟨𝑧, 𝑦⟩ ∧ ((𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ 𝑣 = 𝐶))}
68		df-co 5566	. 2 ⊢ (𝐺 ∘ 𝐹) = {⟨𝑢, 𝑣⟩ ∣ ∃𝑤(𝑢𝐹𝑤 ∧ 𝑤𝐺𝑣)}
69		df-mpo 7163	. . 3 ⊢ (𝑧 ∈ 𝐴, 𝑦 ∈ 𝐵 ↦ 𝐶) = {⟨⟨𝑧, 𝑦⟩, 𝑣⟩ ∣ ((𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ 𝑣 = 𝐶)}
70		dfoprab2 7214	. . 3 ⊢ {⟨⟨𝑧, 𝑦⟩, 𝑣⟩ ∣ ((𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ 𝑣 = 𝐶)} = {⟨𝑢, 𝑣⟩ ∣ ∃𝑧∃𝑦(𝑢 = ⟨𝑧, 𝑦⟩ ∧ ((𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ 𝑣 = 𝐶))}
71	69, 70	eqtri 2846	. 2 ⊢ (𝑧 ∈ 𝐴, 𝑦 ∈ 𝐵 ↦ 𝐶) = {⟨𝑢, 𝑣⟩ ∣ ∃𝑧∃𝑦(𝑢 = ⟨𝑧, 𝑦⟩ ∧ ((𝑧 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) ∧ 𝑣 = 𝐶))}
72	67, 68, 71	3eqtr4i 2856	1 ⊢ (𝐺 ∘ 𝐹) = (𝑧 ∈ 𝐴, 𝑦 ∈ 𝐵 ↦ 𝐶)

Syntax hints:   ↔ wb 208   ∧ wa 398   = wceq 1537  ∃wex 1780   ∈ wcel 2114  {csn 4569  ⟨cop 4575  ∪ cuni 4840   class class class wbr 5068  {copab 5130   ↦ cmpt 5148   × cxp 5555  ^◡ccnv 5556  dom cdm 5557   ∘ ccom 5561  Fun wfun 6351  –1-1-onto→wf1o 6356  ‘cfv 6357  {coprab 7159   ∈ cmpo 7160

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2161  ax-12 2177  ax-ext 2795  ax-sep 5205  ax-nul 5212  ax-pow 5268  ax-pr 5332  ax-un 7463

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3an 1085  df-tru 1540  df-ex 1781  df-nf 1785  df-sb 2070  df-mo 2622  df-eu 2654  df-clab 2802  df-cleq 2816  df-clel 2895  df-nfc 2965  df-ne 3019  df-ral 3145  df-rex 3146  df-rab 3149  df-v 3498  df-sbc 3775  df-dif 3941  df-un 3943  df-in 3945  df-ss 3954  df-nul 4294  df-if 4470  df-pw 4543  df-sn 4570  df-pr 4572  df-op 4576  df-uni 4841  df-br 5069  df-opab 5131  df-mpt 5149  df-id 5462  df-xp 5563  df-rel 5564  df-cnv 5565  df-co 5566  df-dm 5567  df-rn 5568  df-iota 6316  df-fun 6359  df-fn 6360  df-f 6361  df-f1 6362  df-fo 6363  df-f1o 6364  df-fv 6365  df-oprab 7162  df-mpo 7163  df-1st 7691  df-2nd 7692

This theorem is referenced by:  omf1o  8622