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

Theorem brdom7disj 9942
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 9941 . 2 (𝐴𝐵 ↔ ∃𝑔(∀𝑥𝐵 ∃*𝑦𝐴 𝑥𝑔𝑦 ∧ ∀𝑥𝐴𝑦𝐵 𝑦𝑔𝑥))
3 incom 4182 . . . . . . . . . . . . . . . . 17 (𝐵𝐴) = (𝐴𝐵)
4 brdom7disj.3 . . . . . . . . . . . . . . . . 17 (𝐴𝐵) = ∅
53, 4eqtri 2849 . . . . . . . . . . . . . . . 16 (𝐵𝐴) = ∅
6 disjne 4407 . . . . . . . . . . . . . . . 16 (((𝐵𝐴) = ∅ ∧ 𝑥𝐵𝑤𝐴) → 𝑥𝑤)
75, 6mp3an1 1441 . . . . . . . . . . . . . . 15 ((𝑥𝐵𝑤𝐴) → 𝑥𝑤)
8 vex 3503 . . . . . . . . . . . . . . . 16 𝑥 ∈ V
9 vex 3503 . . . . . . . . . . . . . . . 16 𝑦 ∈ V
10 vex 3503 . . . . . . . . . . . . . . . 16 𝑧 ∈ V
11 vex 3503 . . . . . . . . . . . . . . . 16 𝑤 ∈ V
128, 9, 10, 11opthpr 4781 . . . . . . . . . . . . . . 15 (𝑥𝑤 → ({𝑥, 𝑦} = {𝑧, 𝑤} ↔ (𝑥 = 𝑧𝑦 = 𝑤)))
137, 12syl 17 . . . . . . . . . . . . . 14 ((𝑥𝐵𝑤𝐴) → ({𝑥, 𝑦} = {𝑧, 𝑤} ↔ (𝑥 = 𝑧𝑦 = 𝑤)))
14 equcom 2018 . . . . . . . . . . . . . . 15 (𝑥 = 𝑧𝑧 = 𝑥)
15 equcom 2018 . . . . . . . . . . . . . . 15 (𝑦 = 𝑤𝑤 = 𝑦)
1614, 15anbi12i 626 . . . . . . . . . . . . . 14 ((𝑥 = 𝑧𝑦 = 𝑤) ↔ (𝑧 = 𝑥𝑤 = 𝑦))
1713, 16syl6rbb 289 . . . . . . . . . . . . 13 ((𝑥𝐵𝑤𝐴) → ((𝑧 = 𝑥𝑤 = 𝑦) ↔ {𝑥, 𝑦} = {𝑧, 𝑤}))
18 df-br 5064 . . . . . . . . . . . . . 14 (𝑧𝑔𝑤 ↔ ⟨𝑧, 𝑤⟩ ∈ 𝑔)
1918a1i 11 . . . . . . . . . . . . 13 ((𝑥𝐵𝑤𝐴) → (𝑧𝑔𝑤 ↔ ⟨𝑧, 𝑤⟩ ∈ 𝑔))
2017, 19anbi12d 630 . . . . . . . . . . . 12 ((𝑥𝐵𝑤𝐴) → (((𝑧 = 𝑥𝑤 = 𝑦) ∧ 𝑧𝑔𝑤) ↔ ({𝑥, 𝑦} = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)))
2120rexbidva 3301 . . . . . . . . . . 11 (𝑥𝐵 → (∃𝑤𝐴 ((𝑧 = 𝑥𝑤 = 𝑦) ∧ 𝑧𝑔𝑤) ↔ ∃𝑤𝐴 ({𝑥, 𝑦} = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)))
2221rexbidv 3302 . . . . . . . . . 10 (𝑥𝐵 → (∃𝑧𝐵𝑤𝐴 ((𝑧 = 𝑥𝑤 = 𝑦) ∧ 𝑧𝑔𝑤) ↔ ∃𝑧𝐵𝑤𝐴 ({𝑥, 𝑦} = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)))
23 rexcom 3360 . . . . . . . . . . 11 (∃𝑧𝐵𝑤𝐴 ({𝑥, 𝑦} = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔) ↔ ∃𝑤𝐴𝑧𝐵 ({𝑥, 𝑦} = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔))
24 zfpair2 5327 . . . . . . . . . . . 12 {𝑥, 𝑦} ∈ V
25 eqeq1 2830 . . . . . . . . . . . . . 14 (𝑣 = {𝑥, 𝑦} → (𝑣 = {𝑧, 𝑤} ↔ {𝑥, 𝑦} = {𝑧, 𝑤}))
2625anbi1d 629 . . . . . . . . . . . . 13 (𝑣 = {𝑥, 𝑦} → ((𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔) ↔ ({𝑥, 𝑦} = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)))
27262rexbidv 3305 . . . . . . . . . . . 12 (𝑣 = {𝑥, 𝑦} → (∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔) ↔ ∃𝑤𝐴𝑧𝐵 ({𝑥, 𝑦} = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)))
2824, 27elab 3671 . . . . . . . . . . 11 ({𝑥, 𝑦} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ↔ ∃𝑤𝐴𝑧𝐵 ({𝑥, 𝑦} = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔))
2923, 28bitr4i 279 . . . . . . . . . 10 (∃𝑧𝐵𝑤𝐴 ({𝑥, 𝑦} = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔) ↔ {𝑥, 𝑦} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)})
3022, 29syl6rbb 289 . . . . . . . . 9 (𝑥𝐵 → ({𝑥, 𝑦} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ↔ ∃𝑧𝐵𝑤𝐴 ((𝑧 = 𝑥𝑤 = 𝑦) ∧ 𝑧𝑔𝑤)))
3130adantr 481 . . . . . . . 8 ((𝑥𝐵𝑦𝐴) → ({𝑥, 𝑦} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ↔ ∃𝑧𝐵𝑤𝐴 ((𝑧 = 𝑥𝑤 = 𝑦) ∧ 𝑧𝑔𝑤)))
32 breq1 5066 . . . . . . . . 9 (𝑧 = 𝑥 → (𝑧𝑔𝑤𝑥𝑔𝑤))
33 breq2 5067 . . . . . . . . 9 (𝑤 = 𝑦 → (𝑥𝑔𝑤𝑥𝑔𝑦))
3432, 33ceqsrex2v 3655 . . . . . . . 8 ((𝑥𝐵𝑦𝐴) → (∃𝑧𝐵𝑤𝐴 ((𝑧 = 𝑥𝑤 = 𝑦) ∧ 𝑧𝑔𝑤) ↔ 𝑥𝑔𝑦))
3531, 34bitrd 280 . . . . . . 7 ((𝑥𝐵𝑦𝐴) → ({𝑥, 𝑦} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ↔ 𝑥𝑔𝑦))
3635rmobidva 3399 . . . . . 6 (𝑥𝐵 → (∃*𝑦𝐴 {𝑥, 𝑦} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ↔ ∃*𝑦𝐴 𝑥𝑔𝑦))
3736ralbiia 3169 . . . . 5 (∀𝑥𝐵 ∃*𝑦𝐴 {𝑥, 𝑦} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ↔ ∀𝑥𝐵 ∃*𝑦𝐴 𝑥𝑔𝑦)
38 zfpair2 5327 . . . . . . . . . . 11 {𝑦, 𝑥} ∈ V
39 eqeq1 2830 . . . . . . . . . . . . 13 (𝑣 = {𝑦, 𝑥} → (𝑣 = {𝑧, 𝑤} ↔ {𝑦, 𝑥} = {𝑧, 𝑤}))
4039anbi1d 629 . . . . . . . . . . . 12 (𝑣 = {𝑦, 𝑥} → ((𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔) ↔ ({𝑦, 𝑥} = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)))
41402rexbidv 3305 . . . . . . . . . . 11 (𝑣 = {𝑦, 𝑥} → (∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔) ↔ ∃𝑤𝐴𝑧𝐵 ({𝑦, 𝑥} = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)))
4238, 41elab 3671 . . . . . . . . . 10 ({𝑦, 𝑥} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ↔ ∃𝑤𝐴𝑧𝐵 ({𝑦, 𝑥} = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔))
43 disjne 4407 . . . . . . . . . . . . . . . . 17 (((𝐵𝐴) = ∅ ∧ 𝑧𝐵𝑥𝐴) → 𝑧𝑥)
445, 43mp3an1 1441 . . . . . . . . . . . . . . . 16 ((𝑧𝐵𝑥𝐴) → 𝑧𝑥)
4544ancoms 459 . . . . . . . . . . . . . . 15 ((𝑥𝐴𝑧𝐵) → 𝑧𝑥)
4610, 11, 9, 8opthpr 4781 . . . . . . . . . . . . . . 15 (𝑧𝑥 → ({𝑧, 𝑤} = {𝑦, 𝑥} ↔ (𝑧 = 𝑦𝑤 = 𝑥)))
4745, 46syl 17 . . . . . . . . . . . . . 14 ((𝑥𝐴𝑧𝐵) → ({𝑧, 𝑤} = {𝑦, 𝑥} ↔ (𝑧 = 𝑦𝑤 = 𝑥)))
48 eqcom 2833 . . . . . . . . . . . . . 14 ({𝑦, 𝑥} = {𝑧, 𝑤} ↔ {𝑧, 𝑤} = {𝑦, 𝑥})
49 ancom 461 . . . . . . . . . . . . . 14 ((𝑤 = 𝑥𝑧 = 𝑦) ↔ (𝑧 = 𝑦𝑤 = 𝑥))
5047, 48, 493bitr4g 315 . . . . . . . . . . . . 13 ((𝑥𝐴𝑧𝐵) → ({𝑦, 𝑥} = {𝑧, 𝑤} ↔ (𝑤 = 𝑥𝑧 = 𝑦)))
5118bicomi 225 . . . . . . . . . . . . . 14 (⟨𝑧, 𝑤⟩ ∈ 𝑔𝑧𝑔𝑤)
5251a1i 11 . . . . . . . . . . . . 13 ((𝑥𝐴𝑧𝐵) → (⟨𝑧, 𝑤⟩ ∈ 𝑔𝑧𝑔𝑤))
5350, 52anbi12d 630 . . . . . . . . . . . 12 ((𝑥𝐴𝑧𝐵) → (({𝑦, 𝑥} = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔) ↔ ((𝑤 = 𝑥𝑧 = 𝑦) ∧ 𝑧𝑔𝑤)))
5453rexbidva 3301 . . . . . . . . . . 11 (𝑥𝐴 → (∃𝑧𝐵 ({𝑦, 𝑥} = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔) ↔ ∃𝑧𝐵 ((𝑤 = 𝑥𝑧 = 𝑦) ∧ 𝑧𝑔𝑤)))
5554rexbidv 3302 . . . . . . . . . 10 (𝑥𝐴 → (∃𝑤𝐴𝑧𝐵 ({𝑦, 𝑥} = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔) ↔ ∃𝑤𝐴𝑧𝐵 ((𝑤 = 𝑥𝑧 = 𝑦) ∧ 𝑧𝑔𝑤)))
5642, 55syl5bb 284 . . . . . . . . 9 (𝑥𝐴 → ({𝑦, 𝑥} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ↔ ∃𝑤𝐴𝑧𝐵 ((𝑤 = 𝑥𝑧 = 𝑦) ∧ 𝑧𝑔𝑤)))
5756adantr 481 . . . . . . . 8 ((𝑥𝐴𝑦𝐵) → ({𝑦, 𝑥} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ↔ ∃𝑤𝐴𝑧𝐵 ((𝑤 = 𝑥𝑧 = 𝑦) ∧ 𝑧𝑔𝑤)))
58 breq2 5067 . . . . . . . . 9 (𝑤 = 𝑥 → (𝑧𝑔𝑤𝑧𝑔𝑥))
59 breq1 5066 . . . . . . . . 9 (𝑧 = 𝑦 → (𝑧𝑔𝑥𝑦𝑔𝑥))
6058, 59ceqsrex2v 3655 . . . . . . . 8 ((𝑥𝐴𝑦𝐵) → (∃𝑤𝐴𝑧𝐵 ((𝑤 = 𝑥𝑧 = 𝑦) ∧ 𝑧𝑔𝑤) ↔ 𝑦𝑔𝑥))
6157, 60bitrd 280 . . . . . . 7 ((𝑥𝐴𝑦𝐵) → ({𝑦, 𝑥} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ↔ 𝑦𝑔𝑥))
6261rexbidva 3301 . . . . . 6 (𝑥𝐴 → (∃𝑦𝐵 {𝑦, 𝑥} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ↔ ∃𝑦𝐵 𝑦𝑔𝑥))
6362ralbiia 3169 . . . . 5 (∀𝑥𝐴𝑦𝐵 {𝑦, 𝑥} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ↔ ∀𝑥𝐴𝑦𝐵 𝑦𝑔𝑥)
64 brdom7disj.1 . . . . . . 7 𝐴 ∈ V
65 snex 5328 . . . . . . . 8 {{𝑧, 𝑤}} ∈ V
66 simpl 483 . . . . . . . . . 10 ((𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔) → 𝑣 = {𝑧, 𝑤})
6766ss2abi 4047 . . . . . . . . 9 {𝑣 ∣ (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ⊆ {𝑣𝑣 = {𝑧, 𝑤}}
68 df-sn 4565 . . . . . . . . 9 {{𝑧, 𝑤}} = {𝑣𝑣 = {𝑧, 𝑤}}
6967, 68sseqtrri 4008 . . . . . . . 8 {𝑣 ∣ (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ⊆ {{𝑧, 𝑤}}
7065, 69ssexi 5223 . . . . . . 7 {𝑣 ∣ (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ∈ V
7164, 1, 70ab2rexex2 7672 . . . . . 6 {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ∈ V
72 eleq2 2906 . . . . . . . . 9 (𝑓 = {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} → ({𝑥, 𝑦} ∈ 𝑓 ↔ {𝑥, 𝑦} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)}))
7372rmobidv 3400 . . . . . . . 8 (𝑓 = {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} → (∃*𝑦𝐴 {𝑥, 𝑦} ∈ 𝑓 ↔ ∃*𝑦𝐴 {𝑥, 𝑦} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)}))
7473ralbidv 3202 . . . . . . 7 (𝑓 = {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} → (∀𝑥𝐵 ∃*𝑦𝐴 {𝑥, 𝑦} ∈ 𝑓 ↔ ∀𝑥𝐵 ∃*𝑦𝐴 {𝑥, 𝑦} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)}))
75 eleq2 2906 . . . . . . . . 9 (𝑓 = {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} → ({𝑦, 𝑥} ∈ 𝑓 ↔ {𝑦, 𝑥} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)}))
7675rexbidv 3302 . . . . . . . 8 (𝑓 = {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} → (∃𝑦𝐵 {𝑦, 𝑥} ∈ 𝑓 ↔ ∃𝑦𝐵 {𝑦, 𝑥} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)}))
7776ralbidv 3202 . . . . . . 7 (𝑓 = {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} → (∀𝑥𝐴𝑦𝐵 {𝑦, 𝑥} ∈ 𝑓 ↔ ∀𝑥𝐴𝑦𝐵 {𝑦, 𝑥} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)}))
7874, 77anbi12d 630 . . . . . 6 (𝑓 = {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} → ((∀𝑥𝐵 ∃*𝑦𝐴 {𝑥, 𝑦} ∈ 𝑓 ∧ ∀𝑥𝐴𝑦𝐵 {𝑦, 𝑥} ∈ 𝑓) ↔ (∀𝑥𝐵 ∃*𝑦𝐴 {𝑥, 𝑦} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ∧ ∀𝑥𝐴𝑦𝐵 {𝑦, 𝑥} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)})))
7971, 78spcev 3611 . . . . 5 ((∀𝑥𝐵 ∃*𝑦𝐴 {𝑥, 𝑦} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ∧ ∀𝑥𝐴𝑦𝐵 {𝑦, 𝑥} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)}) → ∃𝑓(∀𝑥𝐵 ∃*𝑦𝐴 {𝑥, 𝑦} ∈ 𝑓 ∧ ∀𝑥𝐴𝑦𝐵 {𝑦, 𝑥} ∈ 𝑓))
8037, 63, 79syl2anbr 598 . . . 4 ((∀𝑥𝐵 ∃*𝑦𝐴 𝑥𝑔𝑦 ∧ ∀𝑥𝐴𝑦𝐵 𝑦𝑔𝑥) → ∃𝑓(∀𝑥𝐵 ∃*𝑦𝐴 {𝑥, 𝑦} ∈ 𝑓 ∧ ∀𝑥𝐴𝑦𝐵 {𝑦, 𝑥} ∈ 𝑓))
8180exlimiv 1924 . . 3 (∃𝑔(∀𝑥𝐵 ∃*𝑦𝐴 𝑥𝑔𝑦 ∧ ∀𝑥𝐴𝑦𝐵 𝑦𝑔𝑥) → ∃𝑓(∀𝑥𝐵 ∃*𝑦𝐴 {𝑥, 𝑦} ∈ 𝑓 ∧ ∀𝑥𝐴𝑦𝐵 {𝑦, 𝑥} ∈ 𝑓))
82 preq1 4668 . . . . . . . . 9 (𝑤 = 𝑥 → {𝑤, 𝑧} = {𝑥, 𝑧})
8382eleq1d 2902 . . . . . . . 8 (𝑤 = 𝑥 → ({𝑤, 𝑧} ∈ 𝑓 ↔ {𝑥, 𝑧} ∈ 𝑓))
84 preq2 4669 . . . . . . . . 9 (𝑧 = 𝑦 → {𝑥, 𝑧} = {𝑥, 𝑦})
8584eleq1d 2902 . . . . . . . 8 (𝑧 = 𝑦 → ({𝑥, 𝑧} ∈ 𝑓 ↔ {𝑥, 𝑦} ∈ 𝑓))
86 eqid 2826 . . . . . . . 8 {⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓} = {⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}
878, 9, 83, 85, 86brab 5427 . . . . . . 7 (𝑥{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑦 ↔ {𝑥, 𝑦} ∈ 𝑓)
8887rmobii 3402 . . . . . 6 (∃*𝑦𝐴 𝑥{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑦 ↔ ∃*𝑦𝐴 {𝑥, 𝑦} ∈ 𝑓)
8988ralbii 3170 . . . . 5 (∀𝑥𝐵 ∃*𝑦𝐴 𝑥{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑦 ↔ ∀𝑥𝐵 ∃*𝑦𝐴 {𝑥, 𝑦} ∈ 𝑓)
90 preq1 4668 . . . . . . . . 9 (𝑤 = 𝑦 → {𝑤, 𝑧} = {𝑦, 𝑧})
9190eleq1d 2902 . . . . . . . 8 (𝑤 = 𝑦 → ({𝑤, 𝑧} ∈ 𝑓 ↔ {𝑦, 𝑧} ∈ 𝑓))
92 preq2 4669 . . . . . . . . 9 (𝑧 = 𝑥 → {𝑦, 𝑧} = {𝑦, 𝑥})
9392eleq1d 2902 . . . . . . . 8 (𝑧 = 𝑥 → ({𝑦, 𝑧} ∈ 𝑓 ↔ {𝑦, 𝑥} ∈ 𝑓))
949, 8, 91, 93, 86brab 5427 . . . . . . 7 (𝑦{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑥 ↔ {𝑦, 𝑥} ∈ 𝑓)
9594rexbii 3252 . . . . . 6 (∃𝑦𝐵 𝑦{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑥 ↔ ∃𝑦𝐵 {𝑦, 𝑥} ∈ 𝑓)
9695ralbii 3170 . . . . 5 (∀𝑥𝐴𝑦𝐵 𝑦{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑥 ↔ ∀𝑥𝐴𝑦𝐵 {𝑦, 𝑥} ∈ 𝑓)
97 df-opab 5126 . . . . . . 7 {⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓} = {𝑣 ∣ ∃𝑤𝑧(𝑣 = ⟨𝑤, 𝑧⟩ ∧ {𝑤, 𝑧} ∈ 𝑓)}
98 vuniex 7456 . . . . . . . 8 𝑓 ∈ V
9911prid1 4697 . . . . . . . . . . 11 𝑤 ∈ {𝑤, 𝑧}
100 elunii 4842 . . . . . . . . . . 11 ((𝑤 ∈ {𝑤, 𝑧} ∧ {𝑤, 𝑧} ∈ 𝑓) → 𝑤 𝑓)
10199, 100mpan 686 . . . . . . . . . 10 ({𝑤, 𝑧} ∈ 𝑓𝑤 𝑓)
102101adantl 482 . . . . . . . . 9 ((𝑣 = ⟨𝑤, 𝑧⟩ ∧ {𝑤, 𝑧} ∈ 𝑓) → 𝑤 𝑓)
103102exlimiv 1924 . . . . . . . 8 (∃𝑧(𝑣 = ⟨𝑤, 𝑧⟩ ∧ {𝑤, 𝑧} ∈ 𝑓) → 𝑤 𝑓)
10410prid2 4698 . . . . . . . . . . 11 𝑧 ∈ {𝑤, 𝑧}
105 elunii 4842 . . . . . . . . . . 11 ((𝑧 ∈ {𝑤, 𝑧} ∧ {𝑤, 𝑧} ∈ 𝑓) → 𝑧 𝑓)
106104, 105mpan 686 . . . . . . . . . 10 ({𝑤, 𝑧} ∈ 𝑓𝑧 𝑓)
107106adantl 482 . . . . . . . . 9 ((𝑣 = ⟨𝑤, 𝑧⟩ ∧ {𝑤, 𝑧} ∈ 𝑓) → 𝑧 𝑓)
108 df-sn 4565 . . . . . . . . . . 11 {⟨𝑤, 𝑧⟩} = {𝑣𝑣 = ⟨𝑤, 𝑧⟩}
109 snex 5328 . . . . . . . . . . 11 {⟨𝑤, 𝑧⟩} ∈ V
110108, 109eqeltrri 2915 . . . . . . . . . 10 {𝑣𝑣 = ⟨𝑤, 𝑧⟩} ∈ V
111 simpl 483 . . . . . . . . . . 11 ((𝑣 = ⟨𝑤, 𝑧⟩ ∧ {𝑤, 𝑧} ∈ 𝑓) → 𝑣 = ⟨𝑤, 𝑧⟩)
112111ss2abi 4047 . . . . . . . . . 10 {𝑣 ∣ (𝑣 = ⟨𝑤, 𝑧⟩ ∧ {𝑤, 𝑧} ∈ 𝑓)} ⊆ {𝑣𝑣 = ⟨𝑤, 𝑧⟩}
113110, 112ssexi 5223 . . . . . . . . 9 {𝑣 ∣ (𝑣 = ⟨𝑤, 𝑧⟩ ∧ {𝑤, 𝑧} ∈ 𝑓)} ∈ V
11498, 107, 113abexex 7663 . . . . . . . 8 {𝑣 ∣ ∃𝑧(𝑣 = ⟨𝑤, 𝑧⟩ ∧ {𝑤, 𝑧} ∈ 𝑓)} ∈ V
11598, 103, 114abexex 7663 . . . . . . 7 {𝑣 ∣ ∃𝑤𝑧(𝑣 = ⟨𝑤, 𝑧⟩ ∧ {𝑤, 𝑧} ∈ 𝑓)} ∈ V
11697, 115eqeltri 2914 . . . . . 6 {⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓} ∈ V
117 breq 5065 . . . . . . . . 9 (𝑔 = {⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓} → (𝑥𝑔𝑦𝑥{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑦))
118117rmobidv 3400 . . . . . . . 8 (𝑔 = {⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓} → (∃*𝑦𝐴 𝑥𝑔𝑦 ↔ ∃*𝑦𝐴 𝑥{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑦))
119118ralbidv 3202 . . . . . . 7 (𝑔 = {⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓} → (∀𝑥𝐵 ∃*𝑦𝐴 𝑥𝑔𝑦 ↔ ∀𝑥𝐵 ∃*𝑦𝐴 𝑥{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑦))
120 breq 5065 . . . . . . . . 9 (𝑔 = {⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓} → (𝑦𝑔𝑥𝑦{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑥))
121120rexbidv 3302 . . . . . . . 8 (𝑔 = {⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓} → (∃𝑦𝐵 𝑦𝑔𝑥 ↔ ∃𝑦𝐵 𝑦{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑥))
122121ralbidv 3202 . . . . . . 7 (𝑔 = {⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓} → (∀𝑥𝐴𝑦𝐵 𝑦𝑔𝑥 ↔ ∀𝑥𝐴𝑦𝐵 𝑦{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑥))
123119, 122anbi12d 630 . . . . . 6 (𝑔 = {⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓} → ((∀𝑥𝐵 ∃*𝑦𝐴 𝑥𝑔𝑦 ∧ ∀𝑥𝐴𝑦𝐵 𝑦𝑔𝑥) ↔ (∀𝑥𝐵 ∃*𝑦𝐴 𝑥{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑦 ∧ ∀𝑥𝐴𝑦𝐵 𝑦{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑥)))
124116, 123spcev 3611 . . . . 5 ((∀𝑥𝐵 ∃*𝑦𝐴 𝑥{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑦 ∧ ∀𝑥𝐴𝑦𝐵 𝑦{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑥) → ∃𝑔(∀𝑥𝐵 ∃*𝑦𝐴 𝑥𝑔𝑦 ∧ ∀𝑥𝐴𝑦𝐵 𝑦𝑔𝑥))
12589, 96, 124syl2anbr 598 . . . 4 ((∀𝑥𝐵 ∃*𝑦𝐴 {𝑥, 𝑦} ∈ 𝑓 ∧ ∀𝑥𝐴𝑦𝐵 {𝑦, 𝑥} ∈ 𝑓) → ∃𝑔(∀𝑥𝐵 ∃*𝑦𝐴 𝑥𝑔𝑦 ∧ ∀𝑥𝐴𝑦𝐵 𝑦𝑔𝑥))
126125exlimiv 1924 . . 3 (∃𝑓(∀𝑥𝐵 ∃*𝑦𝐴 {𝑥, 𝑦} ∈ 𝑓 ∧ ∀𝑥𝐴𝑦𝐵 {𝑦, 𝑥} ∈ 𝑓) → ∃𝑔(∀𝑥𝐵 ∃*𝑦𝐴 𝑥𝑔𝑦 ∧ ∀𝑥𝐴𝑦𝐵 𝑦𝑔𝑥))
12781, 126impbii 210 . 2 (∃𝑔(∀𝑥𝐵 ∃*𝑦𝐴 𝑥𝑔𝑦 ∧ ∀𝑥𝐴𝑦𝐵 𝑦𝑔𝑥) ↔ ∃𝑓(∀𝑥𝐵 ∃*𝑦𝐴 {𝑥, 𝑦} ∈ 𝑓 ∧ ∀𝑥𝐴𝑦𝐵 {𝑦, 𝑥} ∈ 𝑓))
1282, 127bitri 276 1 (𝐴𝐵 ↔ ∃𝑓(∀𝑥𝐵 ∃*𝑦𝐴 {𝑥, 𝑦} ∈ 𝑓 ∧ ∀𝑥𝐴𝑦𝐵 {𝑦, 𝑥} ∈ 𝑓))
Colors of variables: wff setvar class
Syntax hints:  wb 207  wa 396   = wceq 1530  wex 1773  wcel 2107  {cab 2804  wne 3021  wral 3143  wrex 3144  ∃*wrmo 3146  Vcvv 3500  cin 3939  c0 4295  {csn 4564  {cpr 4566  cop 4570   cuni 4837   class class class wbr 5063  {copab 5125  cdom 8496
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1789  ax-4 1803  ax-5 1904  ax-6 1963  ax-7 2008  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2153  ax-12 2169  ax-ext 2798  ax-rep 5187  ax-sep 5200  ax-nul 5207  ax-pow 5263  ax-pr 5326  ax-un 7451  ax-ac2 9874
This theorem depends on definitions:  df-bi 208  df-an 397  df-or 844  df-3or 1082  df-3an 1083  df-tru 1533  df-ex 1774  df-nf 1778  df-sb 2063  df-mo 2620  df-eu 2652  df-clab 2805  df-cleq 2819  df-clel 2898  df-nfc 2968  df-ne 3022  df-ral 3148  df-rex 3149  df-reu 3150  df-rmo 3151  df-rab 3152  df-v 3502  df-sbc 3777  df-csb 3888  df-dif 3943  df-un 3945  df-in 3947  df-ss 3956  df-pss 3958  df-nul 4296  df-if 4471  df-pw 4544  df-sn 4565  df-pr 4567  df-tp 4569  df-op 4571  df-uni 4838  df-int 4875  df-iun 4919  df-br 5064  df-opab 5126  df-mpt 5144  df-tr 5170  df-id 5459  df-eprel 5464  df-po 5473  df-so 5474  df-fr 5513  df-se 5514  df-we 5515  df-xp 5560  df-rel 5561  df-cnv 5562  df-co 5563  df-dm 5564  df-rn 5565  df-res 5566  df-ima 5567  df-pred 6146  df-ord 6192  df-on 6193  df-suc 6195  df-iota 6312  df-fun 6354  df-fn 6355  df-f 6356  df-f1 6357  df-fo 6358  df-f1o 6359  df-fv 6360  df-isom 6361  df-riota 7106  df-ov 7151  df-oprab 7152  df-mpo 7153  df-1st 7680  df-2nd 7681  df-wrecs 7938  df-recs 7999  df-er 8279  df-map 8398  df-en 8499  df-dom 8500  df-sdom 8501  df-card 9357  df-acn 9360  df-ac 9531
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator