Theorem brdom6disj 10524

Description: An equivalence to a dominance relation for disjoint sets. (Contributed by NM, 5-Apr-2007.)

Hypotheses

Ref	Expression
brdom7disj.1	⊢ 𝐴 ∈ V
brdom7disj.2	⊢ 𝐵 ∈ V
brdom7disj.3	⊢ (𝐴 ∩ 𝐵) = ∅

Assertion

Ref	Expression
brdom6disj	⊢ (𝐴 ≼ 𝐵 ↔ ∃𝑓(∀𝑥 ∈ 𝐵 ∃*𝑦{𝑥, 𝑦} ∈ 𝑓 ∧ ∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 {𝑦, 𝑥} ∈ 𝑓))

Distinct variable groups:   𝑥,𝑓,𝑦,𝐴   𝐵,𝑓,𝑥,𝑦

Proof of Theorem brdom6disj

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

Step	Hyp	Ref	Expression
1		brdom7disj.2	. . 3 ⊢ 𝐵 ∈ V
2	1	brdom5 10521	. 2 ⊢ (𝐴 ≼ 𝐵 ↔ ∃𝑔(∀𝑥 ∈ 𝐵 ∃*𝑦 𝑥𝑔𝑦 ∧ ∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 𝑦𝑔𝑥))
3		zfpair2 5428	. . . . . . . . 9 ⊢ {𝑥, 𝑦} ∈ V
4		eqeq1 2737	. . . . . . . . . . . 12 ⊢ (𝑣 = {𝑥, 𝑦} → (𝑣 = {𝑧, 𝑤} ↔ {𝑥, 𝑦} = {𝑧, 𝑤}))
5	4	anbi1d 631	. . . . . . . . . . 11 ⊢ (𝑣 = {𝑥, 𝑦} → ((𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔) ↔ ({𝑥, 𝑦} = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)))
6		df-br 5149	. . . . . . . . . . . 12 ⊢ (𝑧𝑔𝑤 ↔ ⟨𝑧, 𝑤⟩ ∈ 𝑔)
7	6	anbi2i 624	. . . . . . . . . . 11 ⊢ (({𝑥, 𝑦} = {𝑧, 𝑤} ∧ 𝑧𝑔𝑤) ↔ ({𝑥, 𝑦} = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔))
8	5, 7	bitr4di 289	. . . . . . . . . 10 ⊢ (𝑣 = {𝑥, 𝑦} → ((𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔) ↔ ({𝑥, 𝑦} = {𝑧, 𝑤} ∧ 𝑧𝑔𝑤)))
9	8	2rexbidv 3220	. . . . . . . . 9 ⊢ (𝑣 = {𝑥, 𝑦} → (∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔) ↔ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 ({𝑥, 𝑦} = {𝑧, 𝑤} ∧ 𝑧𝑔𝑤)))
10	3, 9	elab 3668	. . . . . . . 8 ⊢ ({𝑥, 𝑦} ∈ {𝑣 ∣ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ↔ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 ({𝑥, 𝑦} = {𝑧, 𝑤} ∧ 𝑧𝑔𝑤))
11		incom 4201	. . . . . . . . . . . . . . . 16 ⊢ (𝐵 ∩ 𝐴) = (𝐴 ∩ 𝐵)
12		brdom7disj.3	. . . . . . . . . . . . . . . 16 ⊢ (𝐴 ∩ 𝐵) = ∅
13	11, 12	eqtri 2761	. . . . . . . . . . . . . . 15 ⊢ (𝐵 ∩ 𝐴) = ∅
14		disjne 4454	. . . . . . . . . . . . . . 15 ⊢ (((𝐵 ∩ 𝐴) = ∅ ∧ 𝑥 ∈ 𝐵 ∧ 𝑤 ∈ 𝐴) → 𝑥 ≠ 𝑤)
15	13, 14	mp3an1 1449	. . . . . . . . . . . . . 14 ⊢ ((𝑥 ∈ 𝐵 ∧ 𝑤 ∈ 𝐴) → 𝑥 ≠ 𝑤)
16		vex 3479	. . . . . . . . . . . . . . 15 ⊢ 𝑥 ∈ V
17		vex 3479	. . . . . . . . . . . . . . 15 ⊢ 𝑦 ∈ V
18		vex 3479	. . . . . . . . . . . . . . 15 ⊢ 𝑧 ∈ V
19		vex 3479	. . . . . . . . . . . . . . 15 ⊢ 𝑤 ∈ V
20	16, 17, 18, 19	opthpr 4852	. . . . . . . . . . . . . 14 ⊢ (𝑥 ≠ 𝑤 → ({𝑥, 𝑦} = {𝑧, 𝑤} ↔ (𝑥 = 𝑧 ∧ 𝑦 = 𝑤)))
21	15, 20	syl 17	. . . . . . . . . . . . 13 ⊢ ((𝑥 ∈ 𝐵 ∧ 𝑤 ∈ 𝐴) → ({𝑥, 𝑦} = {𝑧, 𝑤} ↔ (𝑥 = 𝑧 ∧ 𝑦 = 𝑤)))
22		breq12 5153	. . . . . . . . . . . . . 14 ⊢ ((𝑥 = 𝑧 ∧ 𝑦 = 𝑤) → (𝑥𝑔𝑦 ↔ 𝑧𝑔𝑤))
23	22	biimprd 247	. . . . . . . . . . . . 13 ⊢ ((𝑥 = 𝑧 ∧ 𝑦 = 𝑤) → (𝑧𝑔𝑤 → 𝑥𝑔𝑦))
24	21, 23	syl6bi 253	. . . . . . . . . . . 12 ⊢ ((𝑥 ∈ 𝐵 ∧ 𝑤 ∈ 𝐴) → ({𝑥, 𝑦} = {𝑧, 𝑤} → (𝑧𝑔𝑤 → 𝑥𝑔𝑦)))
25	24	impd 412	. . . . . . . . . . 11 ⊢ ((𝑥 ∈ 𝐵 ∧ 𝑤 ∈ 𝐴) → (({𝑥, 𝑦} = {𝑧, 𝑤} ∧ 𝑧𝑔𝑤) → 𝑥𝑔𝑦))
26	25	ex 414	. . . . . . . . . 10 ⊢ (𝑥 ∈ 𝐵 → (𝑤 ∈ 𝐴 → (({𝑥, 𝑦} = {𝑧, 𝑤} ∧ 𝑧𝑔𝑤) → 𝑥𝑔𝑦)))
27	26	adantrd 493	. . . . . . . . 9 ⊢ (𝑥 ∈ 𝐵 → ((𝑤 ∈ 𝐴 ∧ 𝑧 ∈ 𝐵) → (({𝑥, 𝑦} = {𝑧, 𝑤} ∧ 𝑧𝑔𝑤) → 𝑥𝑔𝑦)))
28	27	rexlimdvv 3211	. . . . . . . 8 ⊢ (𝑥 ∈ 𝐵 → (∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 ({𝑥, 𝑦} = {𝑧, 𝑤} ∧ 𝑧𝑔𝑤) → 𝑥𝑔𝑦))
29	10, 28	biimtrid 241	. . . . . . 7 ⊢ (𝑥 ∈ 𝐵 → ({𝑥, 𝑦} ∈ {𝑣 ∣ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} → 𝑥𝑔𝑦))
30	29	moimdv 2541	. . . . . 6 ⊢ (𝑥 ∈ 𝐵 → (∃*𝑦 𝑥𝑔𝑦 → ∃*𝑦{𝑥, 𝑦} ∈ {𝑣 ∣ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)}))
31	30	ralimia 3081	. . . . 5 ⊢ (∀𝑥 ∈ 𝐵 ∃*𝑦 𝑥𝑔𝑦 → ∀𝑥 ∈ 𝐵 ∃*𝑦{𝑥, 𝑦} ∈ {𝑣 ∣ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)})
32		zfpair2 5428	. . . . . . . . . . . 12 ⊢ {𝑦, 𝑥} ∈ V
33		eqeq1 2737	. . . . . . . . . . . . . 14 ⊢ (𝑣 = {𝑦, 𝑥} → (𝑣 = {𝑧, 𝑤} ↔ {𝑦, 𝑥} = {𝑧, 𝑤}))
34	33	anbi1d 631	. . . . . . . . . . . . 13 ⊢ (𝑣 = {𝑦, 𝑥} → ((𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔) ↔ ({𝑦, 𝑥} = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)))
35	34	2rexbidv 3220	. . . . . . . . . . . 12 ⊢ (𝑣 = {𝑦, 𝑥} → (∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔) ↔ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 ({𝑦, 𝑥} = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)))
36	32, 35	elab 3668	. . . . . . . . . . 11 ⊢ ({𝑦, 𝑥} ∈ {𝑣 ∣ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ↔ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 ({𝑦, 𝑥} = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔))
37		disjne 4454	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝐵 ∩ 𝐴) = ∅ ∧ 𝑧 ∈ 𝐵 ∧ 𝑥 ∈ 𝐴) → 𝑧 ≠ 𝑥)
38	13, 37	mp3an1 1449	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑧 ∈ 𝐵 ∧ 𝑥 ∈ 𝐴) → 𝑧 ≠ 𝑥)
39	38	ancoms 460	. . . . . . . . . . . . . . . 16 ⊢ ((𝑥 ∈ 𝐴 ∧ 𝑧 ∈ 𝐵) → 𝑧 ≠ 𝑥)
40	18, 19, 17, 16	opthpr 4852	. . . . . . . . . . . . . . . 16 ⊢ (𝑧 ≠ 𝑥 → ({𝑧, 𝑤} = {𝑦, 𝑥} ↔ (𝑧 = 𝑦 ∧ 𝑤 = 𝑥)))
41	39, 40	syl 17	. . . . . . . . . . . . . . 15 ⊢ ((𝑥 ∈ 𝐴 ∧ 𝑧 ∈ 𝐵) → ({𝑧, 𝑤} = {𝑦, 𝑥} ↔ (𝑧 = 𝑦 ∧ 𝑤 = 𝑥)))
42		eqcom 2740	. . . . . . . . . . . . . . 15 ⊢ ({𝑦, 𝑥} = {𝑧, 𝑤} ↔ {𝑧, 𝑤} = {𝑦, 𝑥})
43		ancom 462	. . . . . . . . . . . . . . 15 ⊢ ((𝑤 = 𝑥 ∧ 𝑧 = 𝑦) ↔ (𝑧 = 𝑦 ∧ 𝑤 = 𝑥))
44	41, 42, 43	3bitr4g 314	. . . . . . . . . . . . . 14 ⊢ ((𝑥 ∈ 𝐴 ∧ 𝑧 ∈ 𝐵) → ({𝑦, 𝑥} = {𝑧, 𝑤} ↔ (𝑤 = 𝑥 ∧ 𝑧 = 𝑦)))
45	6	bicomi 223	. . . . . . . . . . . . . . 15 ⊢ (⟨𝑧, 𝑤⟩ ∈ 𝑔 ↔ 𝑧𝑔𝑤)
46	45	a1i 11	. . . . . . . . . . . . . 14 ⊢ ((𝑥 ∈ 𝐴 ∧ 𝑧 ∈ 𝐵) → (⟨𝑧, 𝑤⟩ ∈ 𝑔 ↔ 𝑧𝑔𝑤))
47	44, 46	anbi12d 632	. . . . . . . . . . . . 13 ⊢ ((𝑥 ∈ 𝐴 ∧ 𝑧 ∈ 𝐵) → (({𝑦, 𝑥} = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔) ↔ ((𝑤 = 𝑥 ∧ 𝑧 = 𝑦) ∧ 𝑧𝑔𝑤)))
48	47	rexbidva 3177	. . . . . . . . . . . 12 ⊢ (𝑥 ∈ 𝐴 → (∃𝑧 ∈ 𝐵 ({𝑦, 𝑥} = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔) ↔ ∃𝑧 ∈ 𝐵 ((𝑤 = 𝑥 ∧ 𝑧 = 𝑦) ∧ 𝑧𝑔𝑤)))
49	48	rexbidv 3179	. . . . . . . . . . 11 ⊢ (𝑥 ∈ 𝐴 → (∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 ({𝑦, 𝑥} = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔) ↔ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 ((𝑤 = 𝑥 ∧ 𝑧 = 𝑦) ∧ 𝑧𝑔𝑤)))
50	36, 49	bitrid 283	. . . . . . . . . 10 ⊢ (𝑥 ∈ 𝐴 → ({𝑦, 𝑥} ∈ {𝑣 ∣ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ↔ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 ((𝑤 = 𝑥 ∧ 𝑧 = 𝑦) ∧ 𝑧𝑔𝑤)))
51	50	adantr 482	. . . . . . . . 9 ⊢ ((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) → ({𝑦, 𝑥} ∈ {𝑣 ∣ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ↔ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 ((𝑤 = 𝑥 ∧ 𝑧 = 𝑦) ∧ 𝑧𝑔𝑤)))
52		breq2 5152	. . . . . . . . . 10 ⊢ (𝑤 = 𝑥 → (𝑧𝑔𝑤 ↔ 𝑧𝑔𝑥))
53		breq1 5151	. . . . . . . . . 10 ⊢ (𝑧 = 𝑦 → (𝑧𝑔𝑥 ↔ 𝑦𝑔𝑥))
54	52, 53	ceqsrex2v 3646	. . . . . . . . 9 ⊢ ((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) → (∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 ((𝑤 = 𝑥 ∧ 𝑧 = 𝑦) ∧ 𝑧𝑔𝑤) ↔ 𝑦𝑔𝑥))
55	51, 54	bitrd 279	. . . . . . . 8 ⊢ ((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) → ({𝑦, 𝑥} ∈ {𝑣 ∣ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ↔ 𝑦𝑔𝑥))
56	55	rexbidva 3177	. . . . . . 7 ⊢ (𝑥 ∈ 𝐴 → (∃𝑦 ∈ 𝐵 {𝑦, 𝑥} ∈ {𝑣 ∣ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ↔ ∃𝑦 ∈ 𝐵 𝑦𝑔𝑥))
57	56	ralbiia 3092	. . . . . 6 ⊢ (∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 {𝑦, 𝑥} ∈ {𝑣 ∣ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ↔ ∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 𝑦𝑔𝑥)
58	57	biimpri 227	. . . . 5 ⊢ (∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 𝑦𝑔𝑥 → ∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 {𝑦, 𝑥} ∈ {𝑣 ∣ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)})
59		brdom7disj.1	. . . . . . 7 ⊢ 𝐴 ∈ V
60		snex 5431	. . . . . . . 8 ⊢ {{𝑧, 𝑤}} ∈ V
61		simpl 484	. . . . . . . . . 10 ⊢ ((𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔) → 𝑣 = {𝑧, 𝑤})
62	61	ss2abi 4063	. . . . . . . . 9 ⊢ {𝑣 ∣ (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ⊆ {𝑣 ∣ 𝑣 = {𝑧, 𝑤}}
63		df-sn 4629	. . . . . . . . 9 ⊢ {{𝑧, 𝑤}} = {𝑣 ∣ 𝑣 = {𝑧, 𝑤}}
64	62, 63	sseqtrri 4019	. . . . . . . 8 ⊢ {𝑣 ∣ (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ⊆ {{𝑧, 𝑤}}
65	60, 64	ssexi 5322	. . . . . . 7 ⊢ {𝑣 ∣ (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ∈ V
66	59, 1, 65	ab2rexex2 7964	. . . . . 6 ⊢ {𝑣 ∣ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ∈ V
67		eleq2 2823	. . . . . . . . 9 ⊢ (𝑓 = {𝑣 ∣ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} → ({𝑥, 𝑦} ∈ 𝑓 ↔ {𝑥, 𝑦} ∈ {𝑣 ∣ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)}))
68	67	mobidv 2544	. . . . . . . 8 ⊢ (𝑓 = {𝑣 ∣ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} → (∃*𝑦{𝑥, 𝑦} ∈ 𝑓 ↔ ∃*𝑦{𝑥, 𝑦} ∈ {𝑣 ∣ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)}))
69	68	ralbidv 3178	. . . . . . 7 ⊢ (𝑓 = {𝑣 ∣ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} → (∀𝑥 ∈ 𝐵 ∃*𝑦{𝑥, 𝑦} ∈ 𝑓 ↔ ∀𝑥 ∈ 𝐵 ∃*𝑦{𝑥, 𝑦} ∈ {𝑣 ∣ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)}))
70		eleq2 2823	. . . . . . . . 9 ⊢ (𝑓 = {𝑣 ∣ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} → ({𝑦, 𝑥} ∈ 𝑓 ↔ {𝑦, 𝑥} ∈ {𝑣 ∣ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)}))
71	70	rexbidv 3179	. . . . . . . 8 ⊢ (𝑓 = {𝑣 ∣ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} → (∃𝑦 ∈ 𝐵 {𝑦, 𝑥} ∈ 𝑓 ↔ ∃𝑦 ∈ 𝐵 {𝑦, 𝑥} ∈ {𝑣 ∣ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)}))
72	71	ralbidv 3178	. . . . . . 7 ⊢ (𝑓 = {𝑣 ∣ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} → (∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 {𝑦, 𝑥} ∈ 𝑓 ↔ ∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 {𝑦, 𝑥} ∈ {𝑣 ∣ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)}))
73	69, 72	anbi12d 632	. . . . . 6 ⊢ (𝑓 = {𝑣 ∣ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} → ((∀𝑥 ∈ 𝐵 ∃*𝑦{𝑥, 𝑦} ∈ 𝑓 ∧ ∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 {𝑦, 𝑥} ∈ 𝑓) ↔ (∀𝑥 ∈ 𝐵 ∃*𝑦{𝑥, 𝑦} ∈ {𝑣 ∣ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ∧ ∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 {𝑦, 𝑥} ∈ {𝑣 ∣ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)})))
74	66, 73	spcev 3597	. . . . 5 ⊢ ((∀𝑥 ∈ 𝐵 ∃*𝑦{𝑥, 𝑦} ∈ {𝑣 ∣ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ∧ ∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 {𝑦, 𝑥} ∈ {𝑣 ∣ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)}) → ∃𝑓(∀𝑥 ∈ 𝐵 ∃*𝑦{𝑥, 𝑦} ∈ 𝑓 ∧ ∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 {𝑦, 𝑥} ∈ 𝑓))
75	31, 58, 74	syl2an 597	. . . 4 ⊢ ((∀𝑥 ∈ 𝐵 ∃*𝑦 𝑥𝑔𝑦 ∧ ∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 𝑦𝑔𝑥) → ∃𝑓(∀𝑥 ∈ 𝐵 ∃*𝑦{𝑥, 𝑦} ∈ 𝑓 ∧ ∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 {𝑦, 𝑥} ∈ 𝑓))
76	75	exlimiv 1934	. . 3 ⊢ (∃𝑔(∀𝑥 ∈ 𝐵 ∃*𝑦 𝑥𝑔𝑦 ∧ ∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 𝑦𝑔𝑥) → ∃𝑓(∀𝑥 ∈ 𝐵 ∃*𝑦{𝑥, 𝑦} ∈ 𝑓 ∧ ∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 {𝑦, 𝑥} ∈ 𝑓))
77		preq1 4737	. . . . . . . . 9 ⊢ (𝑤 = 𝑥 → {𝑤, 𝑧} = {𝑥, 𝑧})
78	77	eleq1d 2819	. . . . . . . 8 ⊢ (𝑤 = 𝑥 → ({𝑤, 𝑧} ∈ 𝑓 ↔ {𝑥, 𝑧} ∈ 𝑓))
79		preq2 4738	. . . . . . . . 9 ⊢ (𝑧 = 𝑦 → {𝑥, 𝑧} = {𝑥, 𝑦})
80	79	eleq1d 2819	. . . . . . . 8 ⊢ (𝑧 = 𝑦 → ({𝑥, 𝑧} ∈ 𝑓 ↔ {𝑥, 𝑦} ∈ 𝑓))
81		eqid 2733	. . . . . . . 8 ⊢ {⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓} = {⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}
82	16, 17, 78, 80, 81	brab 5543	. . . . . . 7 ⊢ (𝑥{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑦 ↔ {𝑥, 𝑦} ∈ 𝑓)
83	82	mobii 2543	. . . . . 6 ⊢ (∃*𝑦 𝑥{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑦 ↔ ∃*𝑦{𝑥, 𝑦} ∈ 𝑓)
84	83	ralbii 3094	. . . . 5 ⊢ (∀𝑥 ∈ 𝐵 ∃*𝑦 𝑥{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑦 ↔ ∀𝑥 ∈ 𝐵 ∃*𝑦{𝑥, 𝑦} ∈ 𝑓)
85		preq1 4737	. . . . . . . . 9 ⊢ (𝑤 = 𝑦 → {𝑤, 𝑧} = {𝑦, 𝑧})
86	85	eleq1d 2819	. . . . . . . 8 ⊢ (𝑤 = 𝑦 → ({𝑤, 𝑧} ∈ 𝑓 ↔ {𝑦, 𝑧} ∈ 𝑓))
87		preq2 4738	. . . . . . . . 9 ⊢ (𝑧 = 𝑥 → {𝑦, 𝑧} = {𝑦, 𝑥})
88	87	eleq1d 2819	. . . . . . . 8 ⊢ (𝑧 = 𝑥 → ({𝑦, 𝑧} ∈ 𝑓 ↔ {𝑦, 𝑥} ∈ 𝑓))
89	17, 16, 86, 88, 81	brab 5543	. . . . . . 7 ⊢ (𝑦{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑥 ↔ {𝑦, 𝑥} ∈ 𝑓)
90	89	rexbii 3095	. . . . . 6 ⊢ (∃𝑦 ∈ 𝐵 𝑦{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑥 ↔ ∃𝑦 ∈ 𝐵 {𝑦, 𝑥} ∈ 𝑓)
91	90	ralbii 3094	. . . . 5 ⊢ (∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 𝑦{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑥 ↔ ∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 {𝑦, 𝑥} ∈ 𝑓)
92		df-opab 5211	. . . . . . 7 ⊢ {⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓} = {𝑣 ∣ ∃𝑤∃𝑧(𝑣 = ⟨𝑤, 𝑧⟩ ∧ {𝑤, 𝑧} ∈ 𝑓)}
93		vuniex 7726	. . . . . . . 8 ⊢ ∪ 𝑓 ∈ V
94	19	prid1 4766	. . . . . . . . . . 11 ⊢ 𝑤 ∈ {𝑤, 𝑧}
95		elunii 4913	. . . . . . . . . . 11 ⊢ ((𝑤 ∈ {𝑤, 𝑧} ∧ {𝑤, 𝑧} ∈ 𝑓) → 𝑤 ∈ ∪ 𝑓)
96	94, 95	mpan 689	. . . . . . . . . 10 ⊢ ({𝑤, 𝑧} ∈ 𝑓 → 𝑤 ∈ ∪ 𝑓)
97	96	adantl 483	. . . . . . . . 9 ⊢ ((𝑣 = ⟨𝑤, 𝑧⟩ ∧ {𝑤, 𝑧} ∈ 𝑓) → 𝑤 ∈ ∪ 𝑓)
98	97	exlimiv 1934	. . . . . . . 8 ⊢ (∃𝑧(𝑣 = ⟨𝑤, 𝑧⟩ ∧ {𝑤, 𝑧} ∈ 𝑓) → 𝑤 ∈ ∪ 𝑓)
99	18	prid2 4767	. . . . . . . . . . 11 ⊢ 𝑧 ∈ {𝑤, 𝑧}
100		elunii 4913	. . . . . . . . . . 11 ⊢ ((𝑧 ∈ {𝑤, 𝑧} ∧ {𝑤, 𝑧} ∈ 𝑓) → 𝑧 ∈ ∪ 𝑓)
101	99, 100	mpan 689	. . . . . . . . . 10 ⊢ ({𝑤, 𝑧} ∈ 𝑓 → 𝑧 ∈ ∪ 𝑓)
102	101	adantl 483	. . . . . . . . 9 ⊢ ((𝑣 = ⟨𝑤, 𝑧⟩ ∧ {𝑤, 𝑧} ∈ 𝑓) → 𝑧 ∈ ∪ 𝑓)
103		df-sn 4629	. . . . . . . . . . 11 ⊢ {⟨𝑤, 𝑧⟩} = {𝑣 ∣ 𝑣 = ⟨𝑤, 𝑧⟩}
104		snex 5431	. . . . . . . . . . 11 ⊢ {⟨𝑤, 𝑧⟩} ∈ V
105	103, 104	eqeltrri 2831	. . . . . . . . . 10 ⊢ {𝑣 ∣ 𝑣 = ⟨𝑤, 𝑧⟩} ∈ V
106		simpl 484	. . . . . . . . . . 11 ⊢ ((𝑣 = ⟨𝑤, 𝑧⟩ ∧ {𝑤, 𝑧} ∈ 𝑓) → 𝑣 = ⟨𝑤, 𝑧⟩)
107	106	ss2abi 4063	. . . . . . . . . 10 ⊢ {𝑣 ∣ (𝑣 = ⟨𝑤, 𝑧⟩ ∧ {𝑤, 𝑧} ∈ 𝑓)} ⊆ {𝑣 ∣ 𝑣 = ⟨𝑤, 𝑧⟩}
108	105, 107	ssexi 5322	. . . . . . . . 9 ⊢ {𝑣 ∣ (𝑣 = ⟨𝑤, 𝑧⟩ ∧ {𝑤, 𝑧} ∈ 𝑓)} ∈ V
109	93, 102, 108	abexex 7955	. . . . . . . 8 ⊢ {𝑣 ∣ ∃𝑧(𝑣 = ⟨𝑤, 𝑧⟩ ∧ {𝑤, 𝑧} ∈ 𝑓)} ∈ V
110	93, 98, 109	abexex 7955	. . . . . . 7 ⊢ {𝑣 ∣ ∃𝑤∃𝑧(𝑣 = ⟨𝑤, 𝑧⟩ ∧ {𝑤, 𝑧} ∈ 𝑓)} ∈ V
111	92, 110	eqeltri 2830	. . . . . 6 ⊢ {⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓} ∈ V
112		breq 5150	. . . . . . . . 9 ⊢ (𝑔 = {⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓} → (𝑥𝑔𝑦 ↔ 𝑥{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑦))
113	112	mobidv 2544	. . . . . . . 8 ⊢ (𝑔 = {⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓} → (∃*𝑦 𝑥𝑔𝑦 ↔ ∃*𝑦 𝑥{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑦))
114	113	ralbidv 3178	. . . . . . 7 ⊢ (𝑔 = {⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓} → (∀𝑥 ∈ 𝐵 ∃*𝑦 𝑥𝑔𝑦 ↔ ∀𝑥 ∈ 𝐵 ∃*𝑦 𝑥{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑦))
115		breq 5150	. . . . . . . . 9 ⊢ (𝑔 = {⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓} → (𝑦𝑔𝑥 ↔ 𝑦{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑥))
116	115	rexbidv 3179	. . . . . . . 8 ⊢ (𝑔 = {⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓} → (∃𝑦 ∈ 𝐵 𝑦𝑔𝑥 ↔ ∃𝑦 ∈ 𝐵 𝑦{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑥))
117	116	ralbidv 3178	. . . . . . 7 ⊢ (𝑔 = {⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓} → (∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 𝑦𝑔𝑥 ↔ ∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 𝑦{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑥))
118	114, 117	anbi12d 632	. . . . . 6 ⊢ (𝑔 = {⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓} → ((∀𝑥 ∈ 𝐵 ∃*𝑦 𝑥𝑔𝑦 ∧ ∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 𝑦𝑔𝑥) ↔ (∀𝑥 ∈ 𝐵 ∃*𝑦 𝑥{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑦 ∧ ∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 𝑦{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑥)))
119	111, 118	spcev 3597	. . . . 5 ⊢ ((∀𝑥 ∈ 𝐵 ∃*𝑦 𝑥{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑦 ∧ ∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 𝑦{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑥) → ∃𝑔(∀𝑥 ∈ 𝐵 ∃*𝑦 𝑥𝑔𝑦 ∧ ∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 𝑦𝑔𝑥))
120	84, 91, 119	syl2anbr 600	. . . 4 ⊢ ((∀𝑥 ∈ 𝐵 ∃*𝑦{𝑥, 𝑦} ∈ 𝑓 ∧ ∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 {𝑦, 𝑥} ∈ 𝑓) → ∃𝑔(∀𝑥 ∈ 𝐵 ∃*𝑦 𝑥𝑔𝑦 ∧ ∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 𝑦𝑔𝑥))
121	120	exlimiv 1934	. . 3 ⊢ (∃𝑓(∀𝑥 ∈ 𝐵 ∃*𝑦{𝑥, 𝑦} ∈ 𝑓 ∧ ∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 {𝑦, 𝑥} ∈ 𝑓) → ∃𝑔(∀𝑥 ∈ 𝐵 ∃*𝑦 𝑥𝑔𝑦 ∧ ∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 𝑦𝑔𝑥))
122	76, 121	impbii 208	. 2 ⊢ (∃𝑔(∀𝑥 ∈ 𝐵 ∃*𝑦 𝑥𝑔𝑦 ∧ ∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 𝑦𝑔𝑥) ↔ ∃𝑓(∀𝑥 ∈ 𝐵 ∃*𝑦{𝑥, 𝑦} ∈ 𝑓 ∧ ∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 {𝑦, 𝑥} ∈ 𝑓))
123	2, 122	bitri 275	1 ⊢ (𝐴 ≼ 𝐵 ↔ ∃𝑓(∀𝑥 ∈ 𝐵 ∃*𝑦{𝑥, 𝑦} ∈ 𝑓 ∧ ∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 {𝑦, 𝑥} ∈ 𝑓))

Syntax hints:   → wi 4   ↔ wb 205   ∧ wa 397   = wceq 1542  ∃wex 1782   ∈ wcel 2107  ∃*wmo 2533  {cab 2710   ≠ wne 2941  ∀wral 3062  ∃wrex 3071  Vcvv 3475   ∩ cin 3947  ∅c0 4322  {csn 4628  {cpr 4630  ⟨cop 4634  ∪ cuni 4908   class class class wbr 5148  {copab 5210   ≼ cdom 8934

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2155  ax-12 2172  ax-ext 2704  ax-rep 5285  ax-sep 5299  ax-nul 5306  ax-pow 5363  ax-pr 5427  ax-un 7722  ax-ac2 10455

This theorem depends on definitions:  df-bi 206  df-an 398  df-or 847  df-3or 1089  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1783  df-nf 1787  df-sb 2069  df-mo 2535  df-eu 2564  df-clab 2711  df-cleq 2725  df-clel 2811  df-nfc 2886  df-ne 2942  df-ral 3063  df-rex 3072  df-rmo 3377  df-reu 3378  df-rab 3434  df-v 3477  df-sbc 3778  df-csb 3894  df-dif 3951  df-un 3953  df-in 3955  df-ss 3965  df-pss 3967  df-nul 4323  df-if 4529  df-pw 4604  df-sn 4629  df-pr 4631  df-op 4635  df-uni 4909  df-int 4951  df-iun 4999  df-br 5149  df-opab 5211  df-mpt 5232  df-tr 5266  df-id 5574  df-eprel 5580  df-po 5588  df-so 5589  df-fr 5631  df-se 5632  df-we 5633  df-xp 5682  df-rel 5683  df-cnv 5684  df-co 5685  df-dm 5686  df-rn 5687  df-res 5688  df-ima 5689  df-pred 6298  df-ord 6365  df-on 6366  df-suc 6368  df-iota 6493  df-fun 6543  df-fn 6544  df-f 6545  df-f1 6546  df-fo 6547  df-f1o 6548  df-fv 6549  df-isom 6550  df-riota 7362  df-ov 7409  df-oprab 7410  df-mpo 7411  df-1st 7972  df-2nd 7973  df-frecs 8263  df-wrecs 8294  df-recs 8368  df-er 8700  df-map 8819  df-en 8937  df-dom 8938  df-sdom 8939  df-card 9931  df-acn 9934  df-ac 10108

This theorem is referenced by:  grothprim  10826