MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  brdom7disj Structured version   Visualization version   GIF version

Theorem brdom7disj 9945
Description: An equivalence to a dominance relation for disjoint sets. (Contributed by NM, 29-Mar-2007.) (Revised by NM, 16-Jun-2017.)
Hypotheses
Ref Expression
brdom7disj.1 𝐴 ∈ V
brdom7disj.2 𝐵 ∈ V
brdom7disj.3 (𝐴𝐵) = ∅
Assertion
Ref Expression
brdom7disj (𝐴𝐵 ↔ ∃𝑓(∀𝑥𝐵 ∃*𝑦𝐴 {𝑥, 𝑦} ∈ 𝑓 ∧ ∀𝑥𝐴𝑦𝐵 {𝑦, 𝑥} ∈ 𝑓))
Distinct variable groups:   𝑥,𝑓,𝑦,𝐴   𝐵,𝑓,𝑥,𝑦

Proof of Theorem brdom7disj
Dummy variables 𝑔 𝑣 𝑤 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 brdom7disj.2 . . 3 𝐵 ∈ V
21brdom4 9944 . 2 (𝐴𝐵 ↔ ∃𝑔(∀𝑥𝐵 ∃*𝑦𝐴 𝑥𝑔𝑦 ∧ ∀𝑥𝐴𝑦𝐵 𝑦𝑔𝑥))
3 incom 4176 . . . . . . . . . . . . . . . . 17 (𝐵𝐴) = (𝐴𝐵)
4 brdom7disj.3 . . . . . . . . . . . . . . . . 17 (𝐴𝐵) = ∅
53, 4eqtri 2842 . . . . . . . . . . . . . . . 16 (𝐵𝐴) = ∅
6 disjne 4402 . . . . . . . . . . . . . . . 16 (((𝐵𝐴) = ∅ ∧ 𝑥𝐵𝑤𝐴) → 𝑥𝑤)
75, 6mp3an1 1442 . . . . . . . . . . . . . . 15 ((𝑥𝐵𝑤𝐴) → 𝑥𝑤)
8 vex 3496 . . . . . . . . . . . . . . . 16 𝑥 ∈ V
9 vex 3496 . . . . . . . . . . . . . . . 16 𝑦 ∈ V
10 vex 3496 . . . . . . . . . . . . . . . 16 𝑧 ∈ V
11 vex 3496 . . . . . . . . . . . . . . . 16 𝑤 ∈ V
128, 9, 10, 11opthpr 4774 . . . . . . . . . . . . . . 15 (𝑥𝑤 → ({𝑥, 𝑦} = {𝑧, 𝑤} ↔ (𝑥 = 𝑧𝑦 = 𝑤)))
137, 12syl 17 . . . . . . . . . . . . . 14 ((𝑥𝐵𝑤𝐴) → ({𝑥, 𝑦} = {𝑧, 𝑤} ↔ (𝑥 = 𝑧𝑦 = 𝑤)))
14 equcom 2019 . . . . . . . . . . . . . . 15 (𝑥 = 𝑧𝑧 = 𝑥)
15 equcom 2019 . . . . . . . . . . . . . . 15 (𝑦 = 𝑤𝑤 = 𝑦)
1614, 15anbi12i 628 . . . . . . . . . . . . . 14 ((𝑥 = 𝑧𝑦 = 𝑤) ↔ (𝑧 = 𝑥𝑤 = 𝑦))
1713, 16syl6rbb 290 . . . . . . . . . . . . 13 ((𝑥𝐵𝑤𝐴) → ((𝑧 = 𝑥𝑤 = 𝑦) ↔ {𝑥, 𝑦} = {𝑧, 𝑤}))
18 df-br 5058 . . . . . . . . . . . . . 14 (𝑧𝑔𝑤 ↔ ⟨𝑧, 𝑤⟩ ∈ 𝑔)
1918a1i 11 . . . . . . . . . . . . 13 ((𝑥𝐵𝑤𝐴) → (𝑧𝑔𝑤 ↔ ⟨𝑧, 𝑤⟩ ∈ 𝑔))
2017, 19anbi12d 632 . . . . . . . . . . . 12 ((𝑥𝐵𝑤𝐴) → (((𝑧 = 𝑥𝑤 = 𝑦) ∧ 𝑧𝑔𝑤) ↔ ({𝑥, 𝑦} = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)))
2120rexbidva 3294 . . . . . . . . . . 11 (𝑥𝐵 → (∃𝑤𝐴 ((𝑧 = 𝑥𝑤 = 𝑦) ∧ 𝑧𝑔𝑤) ↔ ∃𝑤𝐴 ({𝑥, 𝑦} = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)))
2221rexbidv 3295 . . . . . . . . . 10 (𝑥𝐵 → (∃𝑧𝐵𝑤𝐴 ((𝑧 = 𝑥𝑤 = 𝑦) ∧ 𝑧𝑔𝑤) ↔ ∃𝑧𝐵𝑤𝐴 ({𝑥, 𝑦} = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)))
23 rexcom 3353 . . . . . . . . . . 11 (∃𝑧𝐵𝑤𝐴 ({𝑥, 𝑦} = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔) ↔ ∃𝑤𝐴𝑧𝐵 ({𝑥, 𝑦} = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔))
24 zfpair2 5321 . . . . . . . . . . . 12 {𝑥, 𝑦} ∈ V
25 eqeq1 2823 . . . . . . . . . . . . . 14 (𝑣 = {𝑥, 𝑦} → (𝑣 = {𝑧, 𝑤} ↔ {𝑥, 𝑦} = {𝑧, 𝑤}))
2625anbi1d 631 . . . . . . . . . . . . 13 (𝑣 = {𝑥, 𝑦} → ((𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔) ↔ ({𝑥, 𝑦} = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)))
27262rexbidv 3298 . . . . . . . . . . . 12 (𝑣 = {𝑥, 𝑦} → (∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔) ↔ ∃𝑤𝐴𝑧𝐵 ({𝑥, 𝑦} = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)))
2824, 27elab 3665 . . . . . . . . . . 11 ({𝑥, 𝑦} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ↔ ∃𝑤𝐴𝑧𝐵 ({𝑥, 𝑦} = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔))
2923, 28bitr4i 280 . . . . . . . . . 10 (∃𝑧𝐵𝑤𝐴 ({𝑥, 𝑦} = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔) ↔ {𝑥, 𝑦} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)})
3022, 29syl6rbb 290 . . . . . . . . 9 (𝑥𝐵 → ({𝑥, 𝑦} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ↔ ∃𝑧𝐵𝑤𝐴 ((𝑧 = 𝑥𝑤 = 𝑦) ∧ 𝑧𝑔𝑤)))
3130adantr 483 . . . . . . . 8 ((𝑥𝐵𝑦𝐴) → ({𝑥, 𝑦} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ↔ ∃𝑧𝐵𝑤𝐴 ((𝑧 = 𝑥𝑤 = 𝑦) ∧ 𝑧𝑔𝑤)))
32 breq1 5060 . . . . . . . . 9 (𝑧 = 𝑥 → (𝑧𝑔𝑤𝑥𝑔𝑤))
33 breq2 5061 . . . . . . . . 9 (𝑤 = 𝑦 → (𝑥𝑔𝑤𝑥𝑔𝑦))
3432, 33ceqsrex2v 3649 . . . . . . . 8 ((𝑥𝐵𝑦𝐴) → (∃𝑧𝐵𝑤𝐴 ((𝑧 = 𝑥𝑤 = 𝑦) ∧ 𝑧𝑔𝑤) ↔ 𝑥𝑔𝑦))
3531, 34bitrd 281 . . . . . . 7 ((𝑥𝐵𝑦𝐴) → ({𝑥, 𝑦} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ↔ 𝑥𝑔𝑦))
3635rmobidva 3392 . . . . . 6 (𝑥𝐵 → (∃*𝑦𝐴 {𝑥, 𝑦} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ↔ ∃*𝑦𝐴 𝑥𝑔𝑦))
3736ralbiia 3162 . . . . 5 (∀𝑥𝐵 ∃*𝑦𝐴 {𝑥, 𝑦} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ↔ ∀𝑥𝐵 ∃*𝑦𝐴 𝑥𝑔𝑦)
38 zfpair2 5321 . . . . . . . . . . 11 {𝑦, 𝑥} ∈ V
39 eqeq1 2823 . . . . . . . . . . . . 13 (𝑣 = {𝑦, 𝑥} → (𝑣 = {𝑧, 𝑤} ↔ {𝑦, 𝑥} = {𝑧, 𝑤}))
4039anbi1d 631 . . . . . . . . . . . 12 (𝑣 = {𝑦, 𝑥} → ((𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔) ↔ ({𝑦, 𝑥} = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)))
41402rexbidv 3298 . . . . . . . . . . 11 (𝑣 = {𝑦, 𝑥} → (∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔) ↔ ∃𝑤𝐴𝑧𝐵 ({𝑦, 𝑥} = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)))
4238, 41elab 3665 . . . . . . . . . 10 ({𝑦, 𝑥} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ↔ ∃𝑤𝐴𝑧𝐵 ({𝑦, 𝑥} = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔))
43 disjne 4402 . . . . . . . . . . . . . . . . 17 (((𝐵𝐴) = ∅ ∧ 𝑧𝐵𝑥𝐴) → 𝑧𝑥)
445, 43mp3an1 1442 . . . . . . . . . . . . . . . 16 ((𝑧𝐵𝑥𝐴) → 𝑧𝑥)
4544ancoms 461 . . . . . . . . . . . . . . 15 ((𝑥𝐴𝑧𝐵) → 𝑧𝑥)
4610, 11, 9, 8opthpr 4774 . . . . . . . . . . . . . . 15 (𝑧𝑥 → ({𝑧, 𝑤} = {𝑦, 𝑥} ↔ (𝑧 = 𝑦𝑤 = 𝑥)))
4745, 46syl 17 . . . . . . . . . . . . . 14 ((𝑥𝐴𝑧𝐵) → ({𝑧, 𝑤} = {𝑦, 𝑥} ↔ (𝑧 = 𝑦𝑤 = 𝑥)))
48 eqcom 2826 . . . . . . . . . . . . . 14 ({𝑦, 𝑥} = {𝑧, 𝑤} ↔ {𝑧, 𝑤} = {𝑦, 𝑥})
49 ancom 463 . . . . . . . . . . . . . 14 ((𝑤 = 𝑥𝑧 = 𝑦) ↔ (𝑧 = 𝑦𝑤 = 𝑥))
5047, 48, 493bitr4g 316 . . . . . . . . . . . . 13 ((𝑥𝐴𝑧𝐵) → ({𝑦, 𝑥} = {𝑧, 𝑤} ↔ (𝑤 = 𝑥𝑧 = 𝑦)))
5118bicomi 226 . . . . . . . . . . . . . 14 (⟨𝑧, 𝑤⟩ ∈ 𝑔𝑧𝑔𝑤)
5251a1i 11 . . . . . . . . . . . . 13 ((𝑥𝐴𝑧𝐵) → (⟨𝑧, 𝑤⟩ ∈ 𝑔𝑧𝑔𝑤))
5350, 52anbi12d 632 . . . . . . . . . . . 12 ((𝑥𝐴𝑧𝐵) → (({𝑦, 𝑥} = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔) ↔ ((𝑤 = 𝑥𝑧 = 𝑦) ∧ 𝑧𝑔𝑤)))
5453rexbidva 3294 . . . . . . . . . . 11 (𝑥𝐴 → (∃𝑧𝐵 ({𝑦, 𝑥} = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔) ↔ ∃𝑧𝐵 ((𝑤 = 𝑥𝑧 = 𝑦) ∧ 𝑧𝑔𝑤)))
5554rexbidv 3295 . . . . . . . . . 10 (𝑥𝐴 → (∃𝑤𝐴𝑧𝐵 ({𝑦, 𝑥} = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔) ↔ ∃𝑤𝐴𝑧𝐵 ((𝑤 = 𝑥𝑧 = 𝑦) ∧ 𝑧𝑔𝑤)))
5642, 55syl5bb 285 . . . . . . . . 9 (𝑥𝐴 → ({𝑦, 𝑥} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ↔ ∃𝑤𝐴𝑧𝐵 ((𝑤 = 𝑥𝑧 = 𝑦) ∧ 𝑧𝑔𝑤)))
5756adantr 483 . . . . . . . 8 ((𝑥𝐴𝑦𝐵) → ({𝑦, 𝑥} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ↔ ∃𝑤𝐴𝑧𝐵 ((𝑤 = 𝑥𝑧 = 𝑦) ∧ 𝑧𝑔𝑤)))
58 breq2 5061 . . . . . . . . 9 (𝑤 = 𝑥 → (𝑧𝑔𝑤𝑧𝑔𝑥))
59 breq1 5060 . . . . . . . . 9 (𝑧 = 𝑦 → (𝑧𝑔𝑥𝑦𝑔𝑥))
6058, 59ceqsrex2v 3649 . . . . . . . 8 ((𝑥𝐴𝑦𝐵) → (∃𝑤𝐴𝑧𝐵 ((𝑤 = 𝑥𝑧 = 𝑦) ∧ 𝑧𝑔𝑤) ↔ 𝑦𝑔𝑥))
6157, 60bitrd 281 . . . . . . 7 ((𝑥𝐴𝑦𝐵) → ({𝑦, 𝑥} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ↔ 𝑦𝑔𝑥))
6261rexbidva 3294 . . . . . 6 (𝑥𝐴 → (∃𝑦𝐵 {𝑦, 𝑥} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ↔ ∃𝑦𝐵 𝑦𝑔𝑥))
6362ralbiia 3162 . . . . 5 (∀𝑥𝐴𝑦𝐵 {𝑦, 𝑥} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ↔ ∀𝑥𝐴𝑦𝐵 𝑦𝑔𝑥)
64 brdom7disj.1 . . . . . . 7 𝐴 ∈ V
65 snex 5322 . . . . . . . 8 {{𝑧, 𝑤}} ∈ V
66 simpl 485 . . . . . . . . . 10 ((𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔) → 𝑣 = {𝑧, 𝑤})
6766ss2abi 4041 . . . . . . . . 9 {𝑣 ∣ (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ⊆ {𝑣𝑣 = {𝑧, 𝑤}}
68 df-sn 4560 . . . . . . . . 9 {{𝑧, 𝑤}} = {𝑣𝑣 = {𝑧, 𝑤}}
6967, 68sseqtrri 4002 . . . . . . . 8 {𝑣 ∣ (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ⊆ {{𝑧, 𝑤}}
7065, 69ssexi 5217 . . . . . . 7 {𝑣 ∣ (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ∈ V
7164, 1, 70ab2rexex2 7673 . . . . . 6 {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ∈ V
72 eleq2 2899 . . . . . . . . 9 (𝑓 = {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} → ({𝑥, 𝑦} ∈ 𝑓 ↔ {𝑥, 𝑦} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)}))
7372rmobidv 3393 . . . . . . . 8 (𝑓 = {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} → (∃*𝑦𝐴 {𝑥, 𝑦} ∈ 𝑓 ↔ ∃*𝑦𝐴 {𝑥, 𝑦} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)}))
7473ralbidv 3195 . . . . . . 7 (𝑓 = {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} → (∀𝑥𝐵 ∃*𝑦𝐴 {𝑥, 𝑦} ∈ 𝑓 ↔ ∀𝑥𝐵 ∃*𝑦𝐴 {𝑥, 𝑦} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)}))
75 eleq2 2899 . . . . . . . . 9 (𝑓 = {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} → ({𝑦, 𝑥} ∈ 𝑓 ↔ {𝑦, 𝑥} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)}))
7675rexbidv 3295 . . . . . . . 8 (𝑓 = {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} → (∃𝑦𝐵 {𝑦, 𝑥} ∈ 𝑓 ↔ ∃𝑦𝐵 {𝑦, 𝑥} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)}))
7776ralbidv 3195 . . . . . . 7 (𝑓 = {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} → (∀𝑥𝐴𝑦𝐵 {𝑦, 𝑥} ∈ 𝑓 ↔ ∀𝑥𝐴𝑦𝐵 {𝑦, 𝑥} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)}))
7874, 77anbi12d 632 . . . . . 6 (𝑓 = {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} → ((∀𝑥𝐵 ∃*𝑦𝐴 {𝑥, 𝑦} ∈ 𝑓 ∧ ∀𝑥𝐴𝑦𝐵 {𝑦, 𝑥} ∈ 𝑓) ↔ (∀𝑥𝐵 ∃*𝑦𝐴 {𝑥, 𝑦} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ∧ ∀𝑥𝐴𝑦𝐵 {𝑦, 𝑥} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)})))
7971, 78spcev 3605 . . . . 5 ((∀𝑥𝐵 ∃*𝑦𝐴 {𝑥, 𝑦} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ∧ ∀𝑥𝐴𝑦𝐵 {𝑦, 𝑥} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)}) → ∃𝑓(∀𝑥𝐵 ∃*𝑦𝐴 {𝑥, 𝑦} ∈ 𝑓 ∧ ∀𝑥𝐴𝑦𝐵 {𝑦, 𝑥} ∈ 𝑓))
8037, 63, 79syl2anbr 600 . . . 4 ((∀𝑥𝐵 ∃*𝑦𝐴 𝑥𝑔𝑦 ∧ ∀𝑥𝐴𝑦𝐵 𝑦𝑔𝑥) → ∃𝑓(∀𝑥𝐵 ∃*𝑦𝐴 {𝑥, 𝑦} ∈ 𝑓 ∧ ∀𝑥𝐴𝑦𝐵 {𝑦, 𝑥} ∈ 𝑓))
8180exlimiv 1925 . . 3 (∃𝑔(∀𝑥𝐵 ∃*𝑦𝐴 𝑥𝑔𝑦 ∧ ∀𝑥𝐴𝑦𝐵 𝑦𝑔𝑥) → ∃𝑓(∀𝑥𝐵 ∃*𝑦𝐴 {𝑥, 𝑦} ∈ 𝑓 ∧ ∀𝑥𝐴𝑦𝐵 {𝑦, 𝑥} ∈ 𝑓))
82 preq1 4661 . . . . . . . . 9 (𝑤 = 𝑥 → {𝑤, 𝑧} = {𝑥, 𝑧})
8382eleq1d 2895 . . . . . . . 8 (𝑤 = 𝑥 → ({𝑤, 𝑧} ∈ 𝑓 ↔ {𝑥, 𝑧} ∈ 𝑓))
84 preq2 4662 . . . . . . . . 9 (𝑧 = 𝑦 → {𝑥, 𝑧} = {𝑥, 𝑦})
8584eleq1d 2895 . . . . . . . 8 (𝑧 = 𝑦 → ({𝑥, 𝑧} ∈ 𝑓 ↔ {𝑥, 𝑦} ∈ 𝑓))
86 eqid 2819 . . . . . . . 8 {⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓} = {⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}
878, 9, 83, 85, 86brab 5421 . . . . . . 7 (𝑥{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑦 ↔ {𝑥, 𝑦} ∈ 𝑓)
8887rmobii 3395 . . . . . 6 (∃*𝑦𝐴 𝑥{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑦 ↔ ∃*𝑦𝐴 {𝑥, 𝑦} ∈ 𝑓)
8988ralbii 3163 . . . . 5 (∀𝑥𝐵 ∃*𝑦𝐴 𝑥{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑦 ↔ ∀𝑥𝐵 ∃*𝑦𝐴 {𝑥, 𝑦} ∈ 𝑓)
90 preq1 4661 . . . . . . . . 9 (𝑤 = 𝑦 → {𝑤, 𝑧} = {𝑦, 𝑧})
9190eleq1d 2895 . . . . . . . 8 (𝑤 = 𝑦 → ({𝑤, 𝑧} ∈ 𝑓 ↔ {𝑦, 𝑧} ∈ 𝑓))
92 preq2 4662 . . . . . . . . 9 (𝑧 = 𝑥 → {𝑦, 𝑧} = {𝑦, 𝑥})
9392eleq1d 2895 . . . . . . . 8 (𝑧 = 𝑥 → ({𝑦, 𝑧} ∈ 𝑓 ↔ {𝑦, 𝑥} ∈ 𝑓))
949, 8, 91, 93, 86brab 5421 . . . . . . 7 (𝑦{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑥 ↔ {𝑦, 𝑥} ∈ 𝑓)
9594rexbii 3245 . . . . . 6 (∃𝑦𝐵 𝑦{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑥 ↔ ∃𝑦𝐵 {𝑦, 𝑥} ∈ 𝑓)
9695ralbii 3163 . . . . 5 (∀𝑥𝐴𝑦𝐵 𝑦{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑥 ↔ ∀𝑥𝐴𝑦𝐵 {𝑦, 𝑥} ∈ 𝑓)
97 df-opab 5120 . . . . . . 7 {⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓} = {𝑣 ∣ ∃𝑤𝑧(𝑣 = ⟨𝑤, 𝑧⟩ ∧ {𝑤, 𝑧} ∈ 𝑓)}
98 vuniex 7457 . . . . . . . 8 𝑓 ∈ V
9911prid1 4690 . . . . . . . . . . 11 𝑤 ∈ {𝑤, 𝑧}
100 elunii 4835 . . . . . . . . . . 11 ((𝑤 ∈ {𝑤, 𝑧} ∧ {𝑤, 𝑧} ∈ 𝑓) → 𝑤 𝑓)
10199, 100mpan 688 . . . . . . . . . 10 ({𝑤, 𝑧} ∈ 𝑓𝑤 𝑓)
102101adantl 484 . . . . . . . . 9 ((𝑣 = ⟨𝑤, 𝑧⟩ ∧ {𝑤, 𝑧} ∈ 𝑓) → 𝑤 𝑓)
103102exlimiv 1925 . . . . . . . 8 (∃𝑧(𝑣 = ⟨𝑤, 𝑧⟩ ∧ {𝑤, 𝑧} ∈ 𝑓) → 𝑤 𝑓)
10410prid2 4691 . . . . . . . . . . 11 𝑧 ∈ {𝑤, 𝑧}
105 elunii 4835 . . . . . . . . . . 11 ((𝑧 ∈ {𝑤, 𝑧} ∧ {𝑤, 𝑧} ∈ 𝑓) → 𝑧 𝑓)
106104, 105mpan 688 . . . . . . . . . 10 ({𝑤, 𝑧} ∈ 𝑓𝑧 𝑓)
107106adantl 484 . . . . . . . . 9 ((𝑣 = ⟨𝑤, 𝑧⟩ ∧ {𝑤, 𝑧} ∈ 𝑓) → 𝑧 𝑓)
108 df-sn 4560 . . . . . . . . . . 11 {⟨𝑤, 𝑧⟩} = {𝑣𝑣 = ⟨𝑤, 𝑧⟩}
109 snex 5322 . . . . . . . . . . 11 {⟨𝑤, 𝑧⟩} ∈ V
110108, 109eqeltrri 2908 . . . . . . . . . 10 {𝑣𝑣 = ⟨𝑤, 𝑧⟩} ∈ V
111 simpl 485 . . . . . . . . . . 11 ((𝑣 = ⟨𝑤, 𝑧⟩ ∧ {𝑤, 𝑧} ∈ 𝑓) → 𝑣 = ⟨𝑤, 𝑧⟩)
112111ss2abi 4041 . . . . . . . . . 10 {𝑣 ∣ (𝑣 = ⟨𝑤, 𝑧⟩ ∧ {𝑤, 𝑧} ∈ 𝑓)} ⊆ {𝑣𝑣 = ⟨𝑤, 𝑧⟩}
113110, 112ssexi 5217 . . . . . . . . 9 {𝑣 ∣ (𝑣 = ⟨𝑤, 𝑧⟩ ∧ {𝑤, 𝑧} ∈ 𝑓)} ∈ V
11498, 107, 113abexex 7664 . . . . . . . 8 {𝑣 ∣ ∃𝑧(𝑣 = ⟨𝑤, 𝑧⟩ ∧ {𝑤, 𝑧} ∈ 𝑓)} ∈ V
11598, 103, 114abexex 7664 . . . . . . 7 {𝑣 ∣ ∃𝑤𝑧(𝑣 = ⟨𝑤, 𝑧⟩ ∧ {𝑤, 𝑧} ∈ 𝑓)} ∈ V
11697, 115eqeltri 2907 . . . . . 6 {⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓} ∈ V
117 breq 5059 . . . . . . . . 9 (𝑔 = {⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓} → (𝑥𝑔𝑦𝑥{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑦))
118117rmobidv 3393 . . . . . . . 8 (𝑔 = {⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓} → (∃*𝑦𝐴 𝑥𝑔𝑦 ↔ ∃*𝑦𝐴 𝑥{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑦))
119118ralbidv 3195 . . . . . . 7 (𝑔 = {⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓} → (∀𝑥𝐵 ∃*𝑦𝐴 𝑥𝑔𝑦 ↔ ∀𝑥𝐵 ∃*𝑦𝐴 𝑥{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑦))
120 breq 5059 . . . . . . . . 9 (𝑔 = {⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓} → (𝑦𝑔𝑥𝑦{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑥))
121120rexbidv 3295 . . . . . . . 8 (𝑔 = {⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓} → (∃𝑦𝐵 𝑦𝑔𝑥 ↔ ∃𝑦𝐵 𝑦{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑥))
122121ralbidv 3195 . . . . . . 7 (𝑔 = {⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓} → (∀𝑥𝐴𝑦𝐵 𝑦𝑔𝑥 ↔ ∀𝑥𝐴𝑦𝐵 𝑦{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑥))
123119, 122anbi12d 632 . . . . . 6 (𝑔 = {⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓} → ((∀𝑥𝐵 ∃*𝑦𝐴 𝑥𝑔𝑦 ∧ ∀𝑥𝐴𝑦𝐵 𝑦𝑔𝑥) ↔ (∀𝑥𝐵 ∃*𝑦𝐴 𝑥{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑦 ∧ ∀𝑥𝐴𝑦𝐵 𝑦{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑥)))
124116, 123spcev 3605 . . . . 5 ((∀𝑥𝐵 ∃*𝑦𝐴 𝑥{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑦 ∧ ∀𝑥𝐴𝑦𝐵 𝑦{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑥) → ∃𝑔(∀𝑥𝐵 ∃*𝑦𝐴 𝑥𝑔𝑦 ∧ ∀𝑥𝐴𝑦𝐵 𝑦𝑔𝑥))
12589, 96, 124syl2anbr 600 . . . 4 ((∀𝑥𝐵 ∃*𝑦𝐴 {𝑥, 𝑦} ∈ 𝑓 ∧ ∀𝑥𝐴𝑦𝐵 {𝑦, 𝑥} ∈ 𝑓) → ∃𝑔(∀𝑥𝐵 ∃*𝑦𝐴 𝑥𝑔𝑦 ∧ ∀𝑥𝐴𝑦𝐵 𝑦𝑔𝑥))
126125exlimiv 1925 . . 3 (∃𝑓(∀𝑥𝐵 ∃*𝑦𝐴 {𝑥, 𝑦} ∈ 𝑓 ∧ ∀𝑥𝐴𝑦𝐵 {𝑦, 𝑥} ∈ 𝑓) → ∃𝑔(∀𝑥𝐵 ∃*𝑦𝐴 𝑥𝑔𝑦 ∧ ∀𝑥𝐴𝑦𝐵 𝑦𝑔𝑥))
12781, 126impbii 211 . 2 (∃𝑔(∀𝑥𝐵 ∃*𝑦𝐴 𝑥𝑔𝑦 ∧ ∀𝑥𝐴𝑦𝐵 𝑦𝑔𝑥) ↔ ∃𝑓(∀𝑥𝐵 ∃*𝑦𝐴 {𝑥, 𝑦} ∈ 𝑓 ∧ ∀𝑥𝐴𝑦𝐵 {𝑦, 𝑥} ∈ 𝑓))
1282, 127bitri 277 1 (𝐴𝐵 ↔ ∃𝑓(∀𝑥𝐵 ∃*𝑦𝐴 {𝑥, 𝑦} ∈ 𝑓 ∧ ∀𝑥𝐴𝑦𝐵 {𝑦, 𝑥} ∈ 𝑓))
Colors of variables: wff setvar class
Syntax hints:  wb 208  wa 398   = wceq 1531  wex 1774  wcel 2108  {cab 2797  wne 3014  wral 3136  wrex 3137  ∃*wrmo 3139  Vcvv 3493  cin 3933  c0 4289  {csn 4559  {cpr 4561  cop 4565   cuni 4830   class class class wbr 5057  {copab 5119  cdom 8499
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1790  ax-4 1804  ax-5 1905  ax-6 1964  ax-7 2009  ax-8 2110  ax-9 2118  ax-10 2139  ax-11 2154  ax-12 2170  ax-ext 2791  ax-rep 5181  ax-sep 5194  ax-nul 5201  ax-pow 5257  ax-pr 5320  ax-un 7453  ax-ac2 9877
This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3or 1083  df-3an 1084  df-tru 1534  df-ex 1775  df-nf 1779  df-sb 2064  df-mo 2616  df-eu 2648  df-clab 2798  df-cleq 2812  df-clel 2891  df-nfc 2961  df-ne 3015  df-ral 3141  df-rex 3142  df-reu 3143  df-rmo 3144  df-rab 3145  df-v 3495  df-sbc 3771  df-csb 3882  df-dif 3937  df-un 3939  df-in 3941  df-ss 3950  df-pss 3952  df-nul 4290  df-if 4466  df-pw 4539  df-sn 4560  df-pr 4562  df-tp 4564  df-op 4566  df-uni 4831  df-int 4868  df-iun 4912  df-br 5058  df-opab 5120  df-mpt 5138  df-tr 5164  df-id 5453  df-eprel 5458  df-po 5467  df-so 5468  df-fr 5507  df-se 5508  df-we 5509  df-xp 5554  df-rel 5555  df-cnv 5556  df-co 5557  df-dm 5558  df-rn 5559  df-res 5560  df-ima 5561  df-pred 6141  df-ord 6187  df-on 6188  df-suc 6190  df-iota 6307  df-fun 6350  df-fn 6351  df-f 6352  df-f1 6353  df-fo 6354  df-f1o 6355  df-fv 6356  df-isom 6357  df-riota 7106  df-ov 7151  df-oprab 7152  df-mpo 7153  df-1st 7681  df-2nd 7682  df-wrecs 7939  df-recs 8000  df-er 8281  df-map 8400  df-en 8502  df-dom 8503  df-sdom 8504  df-card 9360  df-acn 9363  df-ac 9534
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator