Theorem brdom6disj 10449

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 10446	. 2 ⊢ (𝐴 ≼ 𝐵 ↔ ∃𝑔(∀𝑥 ∈ 𝐵 ∃*𝑦 𝑥𝑔𝑦 ∧ ∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 𝑦𝑔𝑥))
3		zfpair2 5366	. . . . . . . . 9 ⊢ {𝑥, 𝑦} ∈ V
4		eqeq1 2745	. . . . . . . . . . . 12 ⊢ (𝑣 = {𝑥, 𝑦} → (𝑣 = {𝑧, 𝑤} ↔ {𝑥, 𝑦} = {𝑧, 𝑤}))
5	4	anbi1d 638	. . . . . . . . . . 11 ⊢ (𝑣 = {𝑥, 𝑦} → ((𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔) ↔ ({𝑥, 𝑦} = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)))
6		df-br 5076	. . . . . . . . . . . 12 ⊢ (𝑧𝑔𝑤 ↔ ⟨𝑧, 𝑤⟩ ∈ 𝑔)
7	6	anbi2i 630	. . . . . . . . . . 11 ⊢ (({𝑥, 𝑦} = {𝑧, 𝑤} ∧ 𝑧𝑔𝑤) ↔ ({𝑥, 𝑦} = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔))
8	5, 7	bitr4di 291	. . . . . . . . . 10 ⊢ (𝑣 = {𝑥, 𝑦} → ((𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔) ↔ ({𝑥, 𝑦} = {𝑧, 𝑤} ∧ 𝑧𝑔𝑤)))
9	8	2rexbidv 3206	. . . . . . . . 9 ⊢ (𝑣 = {𝑥, 𝑦} → (∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔) ↔ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 ({𝑥, 𝑦} = {𝑧, 𝑤} ∧ 𝑧𝑔𝑤)))
10	3, 9	elab 3619	. . . . . . . 8 ⊢ ({𝑥, 𝑦} ∈ {𝑣 ∣ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ↔ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 ({𝑥, 𝑦} = {𝑧, 𝑤} ∧ 𝑧𝑔𝑤))
11		incom 4141	. . . . . . . . . . . . . . . 16 ⊢ (𝐵 ∩ 𝐴) = (𝐴 ∩ 𝐵)
12		brdom7disj.3	. . . . . . . . . . . . . . . 16 ⊢ (𝐴 ∩ 𝐵) = ∅
13	11, 12	eqtri 2764	. . . . . . . . . . . . . . 15 ⊢ (𝐵 ∩ 𝐴) = ∅
14		disjne 4386	. . . . . . . . . . . . . . 15 ⊢ (((𝐵 ∩ 𝐴) = ∅ ∧ 𝑥 ∈ 𝐵 ∧ 𝑤 ∈ 𝐴) → 𝑥 ≠ 𝑤)
15	13, 14	mp3an1 1457	. . . . . . . . . . . . . 14 ⊢ ((𝑥 ∈ 𝐵 ∧ 𝑤 ∈ 𝐴) → 𝑥 ≠ 𝑤)
16		vex 3437	. . . . . . . . . . . . . . 15 ⊢ 𝑥 ∈ V
17		vex 3437	. . . . . . . . . . . . . . 15 ⊢ 𝑦 ∈ V
18		vex 3437	. . . . . . . . . . . . . . 15 ⊢ 𝑧 ∈ V
19		vex 3437	. . . . . . . . . . . . . . 15 ⊢ 𝑤 ∈ V
20	16, 17, 18, 19	opthpr 4785	. . . . . . . . . . . . . 14 ⊢ (𝑥 ≠ 𝑤 → ({𝑥, 𝑦} = {𝑧, 𝑤} ↔ (𝑥 = 𝑧 ∧ 𝑦 = 𝑤)))
21	15, 20	syl 17	. . . . . . . . . . . . 13 ⊢ ((𝑥 ∈ 𝐵 ∧ 𝑤 ∈ 𝐴) → ({𝑥, 𝑦} = {𝑧, 𝑤} ↔ (𝑥 = 𝑧 ∧ 𝑦 = 𝑤)))
22		breq12 5080	. . . . . . . . . . . . . 14 ⊢ ((𝑥 = 𝑧 ∧ 𝑦 = 𝑤) → (𝑥𝑔𝑦 ↔ 𝑧𝑔𝑤))
23	22	biimprd 250	. . . . . . . . . . . . 13 ⊢ ((𝑥 = 𝑧 ∧ 𝑦 = 𝑤) → (𝑧𝑔𝑤 → 𝑥𝑔𝑦))
24	21, 23	biimtrdi 255	. . . . . . . . . . . 12 ⊢ ((𝑥 ∈ 𝐵 ∧ 𝑤 ∈ 𝐴) → ({𝑥, 𝑦} = {𝑧, 𝑤} → (𝑧𝑔𝑤 → 𝑥𝑔𝑦)))
25	24	impd 412	. . . . . . . . . . 11 ⊢ ((𝑥 ∈ 𝐵 ∧ 𝑤 ∈ 𝐴) → (({𝑥, 𝑦} = {𝑧, 𝑤} ∧ 𝑧𝑔𝑤) → 𝑥𝑔𝑦))
26	25	ex 414	. . . . . . . . . 10 ⊢ (𝑥 ∈ 𝐵 → (𝑤 ∈ 𝐴 → (({𝑥, 𝑦} = {𝑧, 𝑤} ∧ 𝑧𝑔𝑤) → 𝑥𝑔𝑦)))
27	26	adantrd 493	. . . . . . . . 9 ⊢ (𝑥 ∈ 𝐵 → ((𝑤 ∈ 𝐴 ∧ 𝑧 ∈ 𝐵) → (({𝑥, 𝑦} = {𝑧, 𝑤} ∧ 𝑧𝑔𝑤) → 𝑥𝑔𝑦)))
28	27	rexlimdvv 3197	. . . . . . . 8 ⊢ (𝑥 ∈ 𝐵 → (∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 ({𝑥, 𝑦} = {𝑧, 𝑤} ∧ 𝑧𝑔𝑤) → 𝑥𝑔𝑦))
29	10, 28	biimtrid 244	. . . . . . 7 ⊢ (𝑥 ∈ 𝐵 → ({𝑥, 𝑦} ∈ {𝑣 ∣ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} → 𝑥𝑔𝑦))
30	29	moimdv 2552	. . . . . 6 ⊢ (𝑥 ∈ 𝐵 → (∃*𝑦 𝑥𝑔𝑦 → ∃*𝑦{𝑥, 𝑦} ∈ {𝑣 ∣ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)}))
31	30	ralimia 3075	. . . . 5 ⊢ (∀𝑥 ∈ 𝐵 ∃*𝑦 𝑥𝑔𝑦 → ∀𝑥 ∈ 𝐵 ∃*𝑦{𝑥, 𝑦} ∈ {𝑣 ∣ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)})
32		zfpair2 5366	. . . . . . . . . . . 12 ⊢ {𝑦, 𝑥} ∈ V
33		eqeq1 2745	. . . . . . . . . . . . . 14 ⊢ (𝑣 = {𝑦, 𝑥} → (𝑣 = {𝑧, 𝑤} ↔ {𝑦, 𝑥} = {𝑧, 𝑤}))
34	33	anbi1d 638	. . . . . . . . . . . . 13 ⊢ (𝑣 = {𝑦, 𝑥} → ((𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔) ↔ ({𝑦, 𝑥} = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)))
35	34	2rexbidv 3206	. . . . . . . . . . . 12 ⊢ (𝑣 = {𝑦, 𝑥} → (∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔) ↔ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 ({𝑦, 𝑥} = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)))
36	32, 35	elab 3619	. . . . . . . . . . 11 ⊢ ({𝑦, 𝑥} ∈ {𝑣 ∣ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ↔ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 ({𝑦, 𝑥} = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔))
37		disjne 4386	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝐵 ∩ 𝐴) = ∅ ∧ 𝑧 ∈ 𝐵 ∧ 𝑥 ∈ 𝐴) → 𝑧 ≠ 𝑥)
38	13, 37	mp3an1 1457	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑧 ∈ 𝐵 ∧ 𝑥 ∈ 𝐴) → 𝑧 ≠ 𝑥)
39	38	ancoms 460	. . . . . . . . . . . . . . . 16 ⊢ ((𝑥 ∈ 𝐴 ∧ 𝑧 ∈ 𝐵) → 𝑧 ≠ 𝑥)
40	18, 19, 17, 16	opthpr 4785	. . . . . . . . . . . . . . . 16 ⊢ (𝑧 ≠ 𝑥 → ({𝑧, 𝑤} = {𝑦, 𝑥} ↔ (𝑧 = 𝑦 ∧ 𝑤 = 𝑥)))
41	39, 40	syl 17	. . . . . . . . . . . . . . 15 ⊢ ((𝑥 ∈ 𝐴 ∧ 𝑧 ∈ 𝐵) → ({𝑧, 𝑤} = {𝑦, 𝑥} ↔ (𝑧 = 𝑦 ∧ 𝑤 = 𝑥)))
42		eqcom 2748	. . . . . . . . . . . . . . 15 ⊢ ({𝑦, 𝑥} = {𝑧, 𝑤} ↔ {𝑧, 𝑤} = {𝑦, 𝑥})
43		ancom 462	. . . . . . . . . . . . . . 15 ⊢ ((𝑤 = 𝑥 ∧ 𝑧 = 𝑦) ↔ (𝑧 = 𝑦 ∧ 𝑤 = 𝑥))
44	41, 42, 43	3bitr4g 316	. . . . . . . . . . . . . 14 ⊢ ((𝑥 ∈ 𝐴 ∧ 𝑧 ∈ 𝐵) → ({𝑦, 𝑥} = {𝑧, 𝑤} ↔ (𝑤 = 𝑥 ∧ 𝑧 = 𝑦)))
45	6	bicomi 226	. . . . . . . . . . . . . . 15 ⊢ (⟨𝑧, 𝑤⟩ ∈ 𝑔 ↔ 𝑧𝑔𝑤)
46	45	a1i 11	. . . . . . . . . . . . . 14 ⊢ ((𝑥 ∈ 𝐴 ∧ 𝑧 ∈ 𝐵) → (⟨𝑧, 𝑤⟩ ∈ 𝑔 ↔ 𝑧𝑔𝑤))
47	44, 46	anbi12d 639	. . . . . . . . . . . . 13 ⊢ ((𝑥 ∈ 𝐴 ∧ 𝑧 ∈ 𝐵) → (({𝑦, 𝑥} = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔) ↔ ((𝑤 = 𝑥 ∧ 𝑧 = 𝑦) ∧ 𝑧𝑔𝑤)))
48	47	rexbidva 3163	. . . . . . . . . . . 12 ⊢ (𝑥 ∈ 𝐴 → (∃𝑧 ∈ 𝐵 ({𝑦, 𝑥} = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔) ↔ ∃𝑧 ∈ 𝐵 ((𝑤 = 𝑥 ∧ 𝑧 = 𝑦) ∧ 𝑧𝑔𝑤)))
49	48	rexbidv 3165	. . . . . . . . . . 11 ⊢ (𝑥 ∈ 𝐴 → (∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 ({𝑦, 𝑥} = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔) ↔ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 ((𝑤 = 𝑥 ∧ 𝑧 = 𝑦) ∧ 𝑧𝑔𝑤)))
50	36, 49	bitrid 285	. . . . . . . . . 10 ⊢ (𝑥 ∈ 𝐴 → ({𝑦, 𝑥} ∈ {𝑣 ∣ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ↔ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 ((𝑤 = 𝑥 ∧ 𝑧 = 𝑦) ∧ 𝑧𝑔𝑤)))
51	50	adantr 482	. . . . . . . . 9 ⊢ ((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) → ({𝑦, 𝑥} ∈ {𝑣 ∣ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ↔ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 ((𝑤 = 𝑥 ∧ 𝑧 = 𝑦) ∧ 𝑧𝑔𝑤)))
52		breq2 5079	. . . . . . . . . 10 ⊢ (𝑤 = 𝑥 → (𝑧𝑔𝑤 ↔ 𝑧𝑔𝑥))
53		breq1 5078	. . . . . . . . . 10 ⊢ (𝑧 = 𝑦 → (𝑧𝑔𝑥 ↔ 𝑦𝑔𝑥))
54	52, 53	ceqsrex2v 3598	. . . . . . . . 9 ⊢ ((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) → (∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 ((𝑤 = 𝑥 ∧ 𝑧 = 𝑦) ∧ 𝑧𝑔𝑤) ↔ 𝑦𝑔𝑥))
55	51, 54	bitrd 281	. . . . . . . 8 ⊢ ((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) → ({𝑦, 𝑥} ∈ {𝑣 ∣ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ↔ 𝑦𝑔𝑥))
56	55	rexbidva 3163	. . . . . . 7 ⊢ (𝑥 ∈ 𝐴 → (∃𝑦 ∈ 𝐵 {𝑦, 𝑥} ∈ {𝑣 ∣ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ↔ ∃𝑦 ∈ 𝐵 𝑦𝑔𝑥))
57	56	ralbiia 3085	. . . . . 6 ⊢ (∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 {𝑦, 𝑥} ∈ {𝑣 ∣ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ↔ ∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 𝑦𝑔𝑥)
58	57	biimpri 230	. . . . 5 ⊢ (∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 𝑦𝑔𝑥 → ∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 {𝑦, 𝑥} ∈ {𝑣 ∣ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)})
59		brdom7disj.1	. . . . . . 7 ⊢ 𝐴 ∈ V
60		snex 5371	. . . . . . . 8 ⊢ {{𝑧, 𝑤}} ∈ V
61		simpl 484	. . . . . . . . . 10 ⊢ ((𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔) → 𝑣 = {𝑧, 𝑤})
62	61	ss2abi 4000	. . . . . . . . 9 ⊢ {𝑣 ∣ (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ⊆ {𝑣 ∣ 𝑣 = {𝑧, 𝑤}}
63		df-sn 4559	. . . . . . . . 9 ⊢ {{𝑧, 𝑤}} = {𝑣 ∣ 𝑣 = {𝑧, 𝑤}}
64	62, 63	sseqtrri 3966	. . . . . . . 8 ⊢ {𝑣 ∣ (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ⊆ {{𝑧, 𝑤}}
65	60, 64	ssexi 5253	. . . . . . 7 ⊢ {𝑣 ∣ (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ∈ V
66	59, 1, 65	ab2rexex2 7926	. . . . . 6 ⊢ {𝑣 ∣ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ∈ V
67		eleq2 2830	. . . . . . . . 9 ⊢ (𝑓 = {𝑣 ∣ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} → ({𝑥, 𝑦} ∈ 𝑓 ↔ {𝑥, 𝑦} ∈ {𝑣 ∣ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)}))
68	67	mobidv 2555	. . . . . . . 8 ⊢ (𝑓 = {𝑣 ∣ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} → (∃*𝑦{𝑥, 𝑦} ∈ 𝑓 ↔ ∃*𝑦{𝑥, 𝑦} ∈ {𝑣 ∣ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)}))
69	68	ralbidv 3164	. . . . . . 7 ⊢ (𝑓 = {𝑣 ∣ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} → (∀𝑥 ∈ 𝐵 ∃*𝑦{𝑥, 𝑦} ∈ 𝑓 ↔ ∀𝑥 ∈ 𝐵 ∃*𝑦{𝑥, 𝑦} ∈ {𝑣 ∣ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)}))
70		eleq2 2830	. . . . . . . . 9 ⊢ (𝑓 = {𝑣 ∣ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} → ({𝑦, 𝑥} ∈ 𝑓 ↔ {𝑦, 𝑥} ∈ {𝑣 ∣ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)}))
71	70	rexbidv 3165	. . . . . . . 8 ⊢ (𝑓 = {𝑣 ∣ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} → (∃𝑦 ∈ 𝐵 {𝑦, 𝑥} ∈ 𝑓 ↔ ∃𝑦 ∈ 𝐵 {𝑦, 𝑥} ∈ {𝑣 ∣ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)}))
72	71	ralbidv 3164	. . . . . . 7 ⊢ (𝑓 = {𝑣 ∣ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} → (∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 {𝑦, 𝑥} ∈ 𝑓 ↔ ∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 {𝑦, 𝑥} ∈ {𝑣 ∣ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)}))
73	69, 72	anbi12d 639	. . . . . 6 ⊢ (𝑓 = {𝑣 ∣ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} → ((∀𝑥 ∈ 𝐵 ∃*𝑦{𝑥, 𝑦} ∈ 𝑓 ∧ ∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 {𝑦, 𝑥} ∈ 𝑓) ↔ (∀𝑥 ∈ 𝐵 ∃*𝑦{𝑥, 𝑦} ∈ {𝑣 ∣ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ∧ ∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 {𝑦, 𝑥} ∈ {𝑣 ∣ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)})))
74	66, 73	spcev 3546	. . . . 5 ⊢ ((∀𝑥 ∈ 𝐵 ∃*𝑦{𝑥, 𝑦} ∈ {𝑣 ∣ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ∧ ∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 {𝑦, 𝑥} ∈ {𝑣 ∣ ∃𝑤 ∈ 𝐴 ∃𝑧 ∈ 𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)}) → ∃𝑓(∀𝑥 ∈ 𝐵 ∃*𝑦{𝑥, 𝑦} ∈ 𝑓 ∧ ∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 {𝑦, 𝑥} ∈ 𝑓))
75	31, 58, 74	syl2an 603	. . . 4 ⊢ ((∀𝑥 ∈ 𝐵 ∃*𝑦 𝑥𝑔𝑦 ∧ ∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 𝑦𝑔𝑥) → ∃𝑓(∀𝑥 ∈ 𝐵 ∃*𝑦{𝑥, 𝑦} ∈ 𝑓 ∧ ∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 {𝑦, 𝑥} ∈ 𝑓))
76	75	exlimiv 1938	. . 3 ⊢ (∃𝑔(∀𝑥 ∈ 𝐵 ∃*𝑦 𝑥𝑔𝑦 ∧ ∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 𝑦𝑔𝑥) → ∃𝑓(∀𝑥 ∈ 𝐵 ∃*𝑦{𝑥, 𝑦} ∈ 𝑓 ∧ ∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 {𝑦, 𝑥} ∈ 𝑓))
77		preq1 4668	. . . . . . . . 9 ⊢ (𝑤 = 𝑥 → {𝑤, 𝑧} = {𝑥, 𝑧})
78	77	eleq1d 2826	. . . . . . . 8 ⊢ (𝑤 = 𝑥 → ({𝑤, 𝑧} ∈ 𝑓 ↔ {𝑥, 𝑧} ∈ 𝑓))
79		preq2 4669	. . . . . . . . 9 ⊢ (𝑧 = 𝑦 → {𝑥, 𝑧} = {𝑥, 𝑦})
80	79	eleq1d 2826	. . . . . . . 8 ⊢ (𝑧 = 𝑦 → ({𝑥, 𝑧} ∈ 𝑓 ↔ {𝑥, 𝑦} ∈ 𝑓))
81		eqid 2741	. . . . . . . 8 ⊢ {⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓} = {⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}
82	16, 17, 78, 80, 81	brab 5488	. . . . . . 7 ⊢ (𝑥{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑦 ↔ {𝑥, 𝑦} ∈ 𝑓)
83	82	mobii 2554	. . . . . 6 ⊢ (∃*𝑦 𝑥{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑦 ↔ ∃*𝑦{𝑥, 𝑦} ∈ 𝑓)
84	83	ralbii 3087	. . . . 5 ⊢ (∀𝑥 ∈ 𝐵 ∃*𝑦 𝑥{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑦 ↔ ∀𝑥 ∈ 𝐵 ∃*𝑦{𝑥, 𝑦} ∈ 𝑓)
85		preq1 4668	. . . . . . . . 9 ⊢ (𝑤 = 𝑦 → {𝑤, 𝑧} = {𝑦, 𝑧})
86	85	eleq1d 2826	. . . . . . . 8 ⊢ (𝑤 = 𝑦 → ({𝑤, 𝑧} ∈ 𝑓 ↔ {𝑦, 𝑧} ∈ 𝑓))
87		preq2 4669	. . . . . . . . 9 ⊢ (𝑧 = 𝑥 → {𝑦, 𝑧} = {𝑦, 𝑥})
88	87	eleq1d 2826	. . . . . . . 8 ⊢ (𝑧 = 𝑥 → ({𝑦, 𝑧} ∈ 𝑓 ↔ {𝑦, 𝑥} ∈ 𝑓))
89	17, 16, 86, 88, 81	brab 5488	. . . . . . 7 ⊢ (𝑦{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑥 ↔ {𝑦, 𝑥} ∈ 𝑓)
90	89	rexbii 3088	. . . . . 6 ⊢ (∃𝑦 ∈ 𝐵 𝑦{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑥 ↔ ∃𝑦 ∈ 𝐵 {𝑦, 𝑥} ∈ 𝑓)
91	90	ralbii 3087	. . . . 5 ⊢ (∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 𝑦{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑥 ↔ ∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 {𝑦, 𝑥} ∈ 𝑓)
92		df-opab 5138	. . . . . . 7 ⊢ {⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓} = {𝑣 ∣ ∃𝑤∃𝑧(𝑣 = ⟨𝑤, 𝑧⟩ ∧ {𝑤, 𝑧} ∈ 𝑓)}
93		vuniex 7686	. . . . . . . 8 ⊢ ∪ 𝑓 ∈ V
94	19	prid1 4697	. . . . . . . . . . 11 ⊢ 𝑤 ∈ {𝑤, 𝑧}
95		elunii 4846	. . . . . . . . . . 11 ⊢ ((𝑤 ∈ {𝑤, 𝑧} ∧ {𝑤, 𝑧} ∈ 𝑓) → 𝑤 ∈ ∪ 𝑓)
96	94, 95	mpan 697	. . . . . . . . . 10 ⊢ ({𝑤, 𝑧} ∈ 𝑓 → 𝑤 ∈ ∪ 𝑓)
97	96	adantl 483	. . . . . . . . 9 ⊢ ((𝑣 = ⟨𝑤, 𝑧⟩ ∧ {𝑤, 𝑧} ∈ 𝑓) → 𝑤 ∈ ∪ 𝑓)
98	97	exlimiv 1938	. . . . . . . 8 ⊢ (∃𝑧(𝑣 = ⟨𝑤, 𝑧⟩ ∧ {𝑤, 𝑧} ∈ 𝑓) → 𝑤 ∈ ∪ 𝑓)
99	18	prid2 4698	. . . . . . . . . . 11 ⊢ 𝑧 ∈ {𝑤, 𝑧}
100		elunii 4846	. . . . . . . . . . 11 ⊢ ((𝑧 ∈ {𝑤, 𝑧} ∧ {𝑤, 𝑧} ∈ 𝑓) → 𝑧 ∈ ∪ 𝑓)
101	99, 100	mpan 697	. . . . . . . . . 10 ⊢ ({𝑤, 𝑧} ∈ 𝑓 → 𝑧 ∈ ∪ 𝑓)
102	101	adantl 483	. . . . . . . . 9 ⊢ ((𝑣 = ⟨𝑤, 𝑧⟩ ∧ {𝑤, 𝑧} ∈ 𝑓) → 𝑧 ∈ ∪ 𝑓)
103		df-sn 4559	. . . . . . . . . . 11 ⊢ {⟨𝑤, 𝑧⟩} = {𝑣 ∣ 𝑣 = ⟨𝑤, 𝑧⟩}
104		snex 5371	. . . . . . . . . . 11 ⊢ {⟨𝑤, 𝑧⟩} ∈ V
105	103, 104	eqeltrri 2838	. . . . . . . . . 10 ⊢ {𝑣 ∣ 𝑣 = ⟨𝑤, 𝑧⟩} ∈ V
106		simpl 484	. . . . . . . . . . 11 ⊢ ((𝑣 = ⟨𝑤, 𝑧⟩ ∧ {𝑤, 𝑧} ∈ 𝑓) → 𝑣 = ⟨𝑤, 𝑧⟩)
107	106	ss2abi 4000	. . . . . . . . . 10 ⊢ {𝑣 ∣ (𝑣 = ⟨𝑤, 𝑧⟩ ∧ {𝑤, 𝑧} ∈ 𝑓)} ⊆ {𝑣 ∣ 𝑣 = ⟨𝑤, 𝑧⟩}
108	105, 107	ssexi 5253	. . . . . . . . 9 ⊢ {𝑣 ∣ (𝑣 = ⟨𝑤, 𝑧⟩ ∧ {𝑤, 𝑧} ∈ 𝑓)} ∈ V
109	93, 102, 108	abexex 7917	. . . . . . . 8 ⊢ {𝑣 ∣ ∃𝑧(𝑣 = ⟨𝑤, 𝑧⟩ ∧ {𝑤, 𝑧} ∈ 𝑓)} ∈ V
110	93, 98, 109	abexex 7917	. . . . . . 7 ⊢ {𝑣 ∣ ∃𝑤∃𝑧(𝑣 = ⟨𝑤, 𝑧⟩ ∧ {𝑤, 𝑧} ∈ 𝑓)} ∈ V
111	92, 110	eqeltri 2837	. . . . . 6 ⊢ {⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓} ∈ V
112		breq 5077	. . . . . . . . 9 ⊢ (𝑔 = {⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓} → (𝑥𝑔𝑦 ↔ 𝑥{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑦))
113	112	mobidv 2555	. . . . . . . 8 ⊢ (𝑔 = {⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓} → (∃*𝑦 𝑥𝑔𝑦 ↔ ∃*𝑦 𝑥{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑦))
114	113	ralbidv 3164	. . . . . . 7 ⊢ (𝑔 = {⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓} → (∀𝑥 ∈ 𝐵 ∃*𝑦 𝑥𝑔𝑦 ↔ ∀𝑥 ∈ 𝐵 ∃*𝑦 𝑥{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑦))
115		breq 5077	. . . . . . . . 9 ⊢ (𝑔 = {⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓} → (𝑦𝑔𝑥 ↔ 𝑦{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑥))
116	115	rexbidv 3165	. . . . . . . 8 ⊢ (𝑔 = {⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓} → (∃𝑦 ∈ 𝐵 𝑦𝑔𝑥 ↔ ∃𝑦 ∈ 𝐵 𝑦{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑥))
117	116	ralbidv 3164	. . . . . . 7 ⊢ (𝑔 = {⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓} → (∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 𝑦𝑔𝑥 ↔ ∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 𝑦{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑥))
118	114, 117	anbi12d 639	. . . . . 6 ⊢ (𝑔 = {⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓} → ((∀𝑥 ∈ 𝐵 ∃*𝑦 𝑥𝑔𝑦 ∧ ∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 𝑦𝑔𝑥) ↔ (∀𝑥 ∈ 𝐵 ∃*𝑦 𝑥{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑦 ∧ ∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 𝑦{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑥)))
119	111, 118	spcev 3546	. . . . 5 ⊢ ((∀𝑥 ∈ 𝐵 ∃*𝑦 𝑥{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑦 ∧ ∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 𝑦{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑥) → ∃𝑔(∀𝑥 ∈ 𝐵 ∃*𝑦 𝑥𝑔𝑦 ∧ ∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 𝑦𝑔𝑥))
120	84, 91, 119	syl2anbr 606	. . . 4 ⊢ ((∀𝑥 ∈ 𝐵 ∃*𝑦{𝑥, 𝑦} ∈ 𝑓 ∧ ∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 {𝑦, 𝑥} ∈ 𝑓) → ∃𝑔(∀𝑥 ∈ 𝐵 ∃*𝑦 𝑥𝑔𝑦 ∧ ∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 𝑦𝑔𝑥))
121	120	exlimiv 1938	. . 3 ⊢ (∃𝑓(∀𝑥 ∈ 𝐵 ∃*𝑦{𝑥, 𝑦} ∈ 𝑓 ∧ ∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 {𝑦, 𝑥} ∈ 𝑓) → ∃𝑔(∀𝑥 ∈ 𝐵 ∃*𝑦 𝑥𝑔𝑦 ∧ ∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 𝑦𝑔𝑥))
122	76, 121	impbii 211	. 2 ⊢ (∃𝑔(∀𝑥 ∈ 𝐵 ∃*𝑦 𝑥𝑔𝑦 ∧ ∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 𝑦𝑔𝑥) ↔ ∃𝑓(∀𝑥 ∈ 𝐵 ∃*𝑦{𝑥, 𝑦} ∈ 𝑓 ∧ ∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 {𝑦, 𝑥} ∈ 𝑓))
123	2, 122	bitri 277	1 ⊢ (𝐴 ≼ 𝐵 ↔ ∃𝑓(∀𝑥 ∈ 𝐵 ∃*𝑦{𝑥, 𝑦} ∈ 𝑓 ∧ ∀𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 {𝑦, 𝑥} ∈ 𝑓))

Syntax hints:   → wi 4   ↔ wb 208   ∧ wa 397   = wceq 1548  ∃wex 1787   ∈ wcel 2121  ∃*wmo 2543  {cab 2719   ≠ wne 2936  ∀wral 3055  ∃wrex 3065  Vcvv 3433   ∩ cin 3884  ∅c0 4264  {csn 4558  {cpr 4560  ⟨cop 4564  ∪ cuni 4841   class class class wbr 5075  {copab 5137   ≼ cdom 8885

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1803  ax-4 1817  ax-5 1918  ax-6 1975  ax-7 2016  ax-8 2123  ax-9 2131  ax-10 2154  ax-11 2170  ax-12 2191  ax-ext 2713  ax-rep 5202  ax-sep 5221  ax-nul 5231  ax-pow 5297  ax-pr 5365  ax-un 7682  ax-ac2 10380

This theorem depends on definitions:  df-bi 209  df-an 398  df-or 855  df-3or 1094  df-3an 1095  df-tru 1551  df-fal 1561  df-ex 1788  df-nf 1792  df-sb 2075  df-mo 2545  df-eu 2575  df-clab 2720  df-cleq 2733  df-clel 2816  df-nfc 2890  df-ne 2937  df-ral 3056  df-rex 3066  df-rmo 3346  df-reu 3347  df-rab 3394  df-v 3435  df-sbc 3726  df-csb 3834  df-dif 3888  df-un 3890  df-in 3892  df-ss 3902  df-pss 3905  df-nul 4265  df-if 4458  df-pw 4534  df-sn 4559  df-pr 4561  df-op 4565  df-uni 4842  df-int 4881  df-iun 4926  df-br 5076  df-opab 5138  df-mpt 5157  df-tr 5183  df-id 5516  df-eprel 5521  df-po 5529  df-so 5530  df-fr 5574  df-se 5575  df-we 5576  df-xp 5627  df-rel 5628  df-cnv 5629  df-co 5630  df-dm 5631  df-rn 5632  df-res 5633  df-ima 5634  df-pred 6256  df-ord 6317  df-on 6318  df-suc 6320  df-iota 6445  df-fun 6491  df-fn 6492  df-f 6493  df-f1 6494  df-fo 6495  df-f1o 6496  df-fv 6497  df-isom 6498  df-riota 7317  df-ov 7363  df-oprab 7364  df-mpo 7365  df-1st 7935  df-2nd 7936  df-frecs 8225  df-wrecs 8256  df-recs 8305  df-er 8637  df-map 8769  df-en 8888  df-dom 8889  df-sdom 8890  df-card 9858  df-acn 9861  df-ac 10033

This theorem is referenced by:  grothprim  10752