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

Theorem brdom6disj 9235
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.
StepHypRef Expression
1 brdom7disj.2 . . 3 𝐵 ∈ V
21brdom5 9232 . 2 (𝐴𝐵 ↔ ∃𝑔(∀𝑥𝐵 ∃*𝑦 𝑥𝑔𝑦 ∧ ∀𝑥𝐴𝑦𝐵 𝑦𝑔𝑥))
3 zfpair2 4834 . . . . . . . . . 10 {𝑥, 𝑦} ∈ V
4 eqeq1 2614 . . . . . . . . . . . . 13 (𝑣 = {𝑥, 𝑦} → (𝑣 = {𝑧, 𝑤} ↔ {𝑥, 𝑦} = {𝑧, 𝑤}))
54anbi1d 737 . . . . . . . . . . . 12 (𝑣 = {𝑥, 𝑦} → ((𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔) ↔ ({𝑥, 𝑦} = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)))
6 df-br 4584 . . . . . . . . . . . . 13 (𝑧𝑔𝑤 ↔ ⟨𝑧, 𝑤⟩ ∈ 𝑔)
76anbi2i 726 . . . . . . . . . . . 12 (({𝑥, 𝑦} = {𝑧, 𝑤} ∧ 𝑧𝑔𝑤) ↔ ({𝑥, 𝑦} = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔))
85, 7syl6bbr 277 . . . . . . . . . . 11 (𝑣 = {𝑥, 𝑦} → ((𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔) ↔ ({𝑥, 𝑦} = {𝑧, 𝑤} ∧ 𝑧𝑔𝑤)))
982rexbidv 3039 . . . . . . . . . 10 (𝑣 = {𝑥, 𝑦} → (∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔) ↔ ∃𝑤𝐴𝑧𝐵 ({𝑥, 𝑦} = {𝑧, 𝑤} ∧ 𝑧𝑔𝑤)))
103, 9elab 3319 . . . . . . . . 9 ({𝑥, 𝑦} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ↔ ∃𝑤𝐴𝑧𝐵 ({𝑥, 𝑦} = {𝑧, 𝑤} ∧ 𝑧𝑔𝑤))
11 incom 3767 . . . . . . . . . . . . . . . . 17 (𝐵𝐴) = (𝐴𝐵)
12 brdom7disj.3 . . . . . . . . . . . . . . . . 17 (𝐴𝐵) = ∅
1311, 12eqtri 2632 . . . . . . . . . . . . . . . 16 (𝐵𝐴) = ∅
14 disjne 3974 . . . . . . . . . . . . . . . 16 (((𝐵𝐴) = ∅ ∧ 𝑥𝐵𝑤𝐴) → 𝑥𝑤)
1513, 14mp3an1 1403 . . . . . . . . . . . . . . 15 ((𝑥𝐵𝑤𝐴) → 𝑥𝑤)
16 vex 3176 . . . . . . . . . . . . . . . 16 𝑥 ∈ V
17 vex 3176 . . . . . . . . . . . . . . . 16 𝑦 ∈ V
18 vex 3176 . . . . . . . . . . . . . . . 16 𝑧 ∈ V
19 vex 3176 . . . . . . . . . . . . . . . 16 𝑤 ∈ V
2016, 17, 18, 19opthpr 4324 . . . . . . . . . . . . . . 15 (𝑥𝑤 → ({𝑥, 𝑦} = {𝑧, 𝑤} ↔ (𝑥 = 𝑧𝑦 = 𝑤)))
2115, 20syl 17 . . . . . . . . . . . . . 14 ((𝑥𝐵𝑤𝐴) → ({𝑥, 𝑦} = {𝑧, 𝑤} ↔ (𝑥 = 𝑧𝑦 = 𝑤)))
22 breq12 4588 . . . . . . . . . . . . . . 15 ((𝑥 = 𝑧𝑦 = 𝑤) → (𝑥𝑔𝑦𝑧𝑔𝑤))
2322biimprd 237 . . . . . . . . . . . . . 14 ((𝑥 = 𝑧𝑦 = 𝑤) → (𝑧𝑔𝑤𝑥𝑔𝑦))
2421, 23syl6bi 242 . . . . . . . . . . . . 13 ((𝑥𝐵𝑤𝐴) → ({𝑥, 𝑦} = {𝑧, 𝑤} → (𝑧𝑔𝑤𝑥𝑔𝑦)))
2524impd 446 . . . . . . . . . . . 12 ((𝑥𝐵𝑤𝐴) → (({𝑥, 𝑦} = {𝑧, 𝑤} ∧ 𝑧𝑔𝑤) → 𝑥𝑔𝑦))
2625ex 449 . . . . . . . . . . 11 (𝑥𝐵 → (𝑤𝐴 → (({𝑥, 𝑦} = {𝑧, 𝑤} ∧ 𝑧𝑔𝑤) → 𝑥𝑔𝑦)))
2726adantrd 483 . . . . . . . . . 10 (𝑥𝐵 → ((𝑤𝐴𝑧𝐵) → (({𝑥, 𝑦} = {𝑧, 𝑤} ∧ 𝑧𝑔𝑤) → 𝑥𝑔𝑦)))
2827rexlimdvv 3019 . . . . . . . . 9 (𝑥𝐵 → (∃𝑤𝐴𝑧𝐵 ({𝑥, 𝑦} = {𝑧, 𝑤} ∧ 𝑧𝑔𝑤) → 𝑥𝑔𝑦))
2910, 28syl5bi 231 . . . . . . . 8 (𝑥𝐵 → ({𝑥, 𝑦} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} → 𝑥𝑔𝑦))
3029alrimiv 1842 . . . . . . 7 (𝑥𝐵 → ∀𝑦({𝑥, 𝑦} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} → 𝑥𝑔𝑦))
31 moim 2507 . . . . . . 7 (∀𝑦({𝑥, 𝑦} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} → 𝑥𝑔𝑦) → (∃*𝑦 𝑥𝑔𝑦 → ∃*𝑦{𝑥, 𝑦} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)}))
3230, 31syl 17 . . . . . 6 (𝑥𝐵 → (∃*𝑦 𝑥𝑔𝑦 → ∃*𝑦{𝑥, 𝑦} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)}))
3332ralimia 2934 . . . . 5 (∀𝑥𝐵 ∃*𝑦 𝑥𝑔𝑦 → ∀𝑥𝐵 ∃*𝑦{𝑥, 𝑦} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)})
34 zfpair2 4834 . . . . . . . . . . . 12 {𝑦, 𝑥} ∈ V
35 eqeq1 2614 . . . . . . . . . . . . . 14 (𝑣 = {𝑦, 𝑥} → (𝑣 = {𝑧, 𝑤} ↔ {𝑦, 𝑥} = {𝑧, 𝑤}))
3635anbi1d 737 . . . . . . . . . . . . 13 (𝑣 = {𝑦, 𝑥} → ((𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔) ↔ ({𝑦, 𝑥} = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)))
37362rexbidv 3039 . . . . . . . . . . . 12 (𝑣 = {𝑦, 𝑥} → (∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔) ↔ ∃𝑤𝐴𝑧𝐵 ({𝑦, 𝑥} = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)))
3834, 37elab 3319 . . . . . . . . . . 11 ({𝑦, 𝑥} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ↔ ∃𝑤𝐴𝑧𝐵 ({𝑦, 𝑥} = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔))
39 disjne 3974 . . . . . . . . . . . . . . . . . 18 (((𝐵𝐴) = ∅ ∧ 𝑧𝐵𝑥𝐴) → 𝑧𝑥)
4013, 39mp3an1 1403 . . . . . . . . . . . . . . . . 17 ((𝑧𝐵𝑥𝐴) → 𝑧𝑥)
4140ancoms 468 . . . . . . . . . . . . . . . 16 ((𝑥𝐴𝑧𝐵) → 𝑧𝑥)
4218, 19, 17, 16opthpr 4324 . . . . . . . . . . . . . . . 16 (𝑧𝑥 → ({𝑧, 𝑤} = {𝑦, 𝑥} ↔ (𝑧 = 𝑦𝑤 = 𝑥)))
4341, 42syl 17 . . . . . . . . . . . . . . 15 ((𝑥𝐴𝑧𝐵) → ({𝑧, 𝑤} = {𝑦, 𝑥} ↔ (𝑧 = 𝑦𝑤 = 𝑥)))
44 eqcom 2617 . . . . . . . . . . . . . . 15 ({𝑦, 𝑥} = {𝑧, 𝑤} ↔ {𝑧, 𝑤} = {𝑦, 𝑥})
45 ancom 465 . . . . . . . . . . . . . . 15 ((𝑤 = 𝑥𝑧 = 𝑦) ↔ (𝑧 = 𝑦𝑤 = 𝑥))
4643, 44, 453bitr4g 302 . . . . . . . . . . . . . 14 ((𝑥𝐴𝑧𝐵) → ({𝑦, 𝑥} = {𝑧, 𝑤} ↔ (𝑤 = 𝑥𝑧 = 𝑦)))
476bicomi 213 . . . . . . . . . . . . . . 15 (⟨𝑧, 𝑤⟩ ∈ 𝑔𝑧𝑔𝑤)
4847a1i 11 . . . . . . . . . . . . . 14 ((𝑥𝐴𝑧𝐵) → (⟨𝑧, 𝑤⟩ ∈ 𝑔𝑧𝑔𝑤))
4946, 48anbi12d 743 . . . . . . . . . . . . 13 ((𝑥𝐴𝑧𝐵) → (({𝑦, 𝑥} = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔) ↔ ((𝑤 = 𝑥𝑧 = 𝑦) ∧ 𝑧𝑔𝑤)))
5049rexbidva 3031 . . . . . . . . . . . 12 (𝑥𝐴 → (∃𝑧𝐵 ({𝑦, 𝑥} = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔) ↔ ∃𝑧𝐵 ((𝑤 = 𝑥𝑧 = 𝑦) ∧ 𝑧𝑔𝑤)))
5150rexbidv 3034 . . . . . . . . . . 11 (𝑥𝐴 → (∃𝑤𝐴𝑧𝐵 ({𝑦, 𝑥} = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔) ↔ ∃𝑤𝐴𝑧𝐵 ((𝑤 = 𝑥𝑧 = 𝑦) ∧ 𝑧𝑔𝑤)))
5238, 51syl5bb 271 . . . . . . . . . 10 (𝑥𝐴 → ({𝑦, 𝑥} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ↔ ∃𝑤𝐴𝑧𝐵 ((𝑤 = 𝑥𝑧 = 𝑦) ∧ 𝑧𝑔𝑤)))
5352adantr 480 . . . . . . . . 9 ((𝑥𝐴𝑦𝐵) → ({𝑦, 𝑥} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ↔ ∃𝑤𝐴𝑧𝐵 ((𝑤 = 𝑥𝑧 = 𝑦) ∧ 𝑧𝑔𝑤)))
54 breq2 4587 . . . . . . . . . 10 (𝑤 = 𝑥 → (𝑧𝑔𝑤𝑧𝑔𝑥))
55 breq1 4586 . . . . . . . . . 10 (𝑧 = 𝑦 → (𝑧𝑔𝑥𝑦𝑔𝑥))
5654, 55ceqsrex2v 3308 . . . . . . . . 9 ((𝑥𝐴𝑦𝐵) → (∃𝑤𝐴𝑧𝐵 ((𝑤 = 𝑥𝑧 = 𝑦) ∧ 𝑧𝑔𝑤) ↔ 𝑦𝑔𝑥))
5753, 56bitrd 267 . . . . . . . 8 ((𝑥𝐴𝑦𝐵) → ({𝑦, 𝑥} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ↔ 𝑦𝑔𝑥))
5857rexbidva 3031 . . . . . . 7 (𝑥𝐴 → (∃𝑦𝐵 {𝑦, 𝑥} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ↔ ∃𝑦𝐵 𝑦𝑔𝑥))
5958ralbiia 2962 . . . . . 6 (∀𝑥𝐴𝑦𝐵 {𝑦, 𝑥} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ↔ ∀𝑥𝐴𝑦𝐵 𝑦𝑔𝑥)
6059biimpri 217 . . . . 5 (∀𝑥𝐴𝑦𝐵 𝑦𝑔𝑥 → ∀𝑥𝐴𝑦𝐵 {𝑦, 𝑥} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)})
61 brdom7disj.1 . . . . . . 7 𝐴 ∈ V
62 snex 4835 . . . . . . . 8 {{𝑧, 𝑤}} ∈ V
63 simpl 472 . . . . . . . . . 10 ((𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔) → 𝑣 = {𝑧, 𝑤})
6463ss2abi 3637 . . . . . . . . 9 {𝑣 ∣ (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ⊆ {𝑣𝑣 = {𝑧, 𝑤}}
65 df-sn 4126 . . . . . . . . 9 {{𝑧, 𝑤}} = {𝑣𝑣 = {𝑧, 𝑤}}
6664, 65sseqtr4i 3601 . . . . . . . 8 {𝑣 ∣ (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ⊆ {{𝑧, 𝑤}}
6762, 66ssexi 4731 . . . . . . 7 {𝑣 ∣ (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ∈ V
6861, 1, 67ab2rexex2 7051 . . . . . 6 {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ∈ V
69 eleq2 2677 . . . . . . . . 9 (𝑓 = {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} → ({𝑥, 𝑦} ∈ 𝑓 ↔ {𝑥, 𝑦} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)}))
7069mobidv 2479 . . . . . . . 8 (𝑓 = {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} → (∃*𝑦{𝑥, 𝑦} ∈ 𝑓 ↔ ∃*𝑦{𝑥, 𝑦} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)}))
7170ralbidv 2969 . . . . . . 7 (𝑓 = {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} → (∀𝑥𝐵 ∃*𝑦{𝑥, 𝑦} ∈ 𝑓 ↔ ∀𝑥𝐵 ∃*𝑦{𝑥, 𝑦} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)}))
72 eleq2 2677 . . . . . . . . 9 (𝑓 = {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} → ({𝑦, 𝑥} ∈ 𝑓 ↔ {𝑦, 𝑥} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)}))
7372rexbidv 3034 . . . . . . . 8 (𝑓 = {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} → (∃𝑦𝐵 {𝑦, 𝑥} ∈ 𝑓 ↔ ∃𝑦𝐵 {𝑦, 𝑥} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)}))
7473ralbidv 2969 . . . . . . 7 (𝑓 = {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} → (∀𝑥𝐴𝑦𝐵 {𝑦, 𝑥} ∈ 𝑓 ↔ ∀𝑥𝐴𝑦𝐵 {𝑦, 𝑥} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)}))
7571, 74anbi12d 743 . . . . . 6 (𝑓 = {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} → ((∀𝑥𝐵 ∃*𝑦{𝑥, 𝑦} ∈ 𝑓 ∧ ∀𝑥𝐴𝑦𝐵 {𝑦, 𝑥} ∈ 𝑓) ↔ (∀𝑥𝐵 ∃*𝑦{𝑥, 𝑦} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ∧ ∀𝑥𝐴𝑦𝐵 {𝑦, 𝑥} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)})))
7668, 75spcev 3273 . . . . 5 ((∀𝑥𝐵 ∃*𝑦{𝑥, 𝑦} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)} ∧ ∀𝑥𝐴𝑦𝐵 {𝑦, 𝑥} ∈ {𝑣 ∣ ∃𝑤𝐴𝑧𝐵 (𝑣 = {𝑧, 𝑤} ∧ ⟨𝑧, 𝑤⟩ ∈ 𝑔)}) → ∃𝑓(∀𝑥𝐵 ∃*𝑦{𝑥, 𝑦} ∈ 𝑓 ∧ ∀𝑥𝐴𝑦𝐵 {𝑦, 𝑥} ∈ 𝑓))
7733, 60, 76syl2an 493 . . . 4 ((∀𝑥𝐵 ∃*𝑦 𝑥𝑔𝑦 ∧ ∀𝑥𝐴𝑦𝐵 𝑦𝑔𝑥) → ∃𝑓(∀𝑥𝐵 ∃*𝑦{𝑥, 𝑦} ∈ 𝑓 ∧ ∀𝑥𝐴𝑦𝐵 {𝑦, 𝑥} ∈ 𝑓))
7877exlimiv 1845 . . 3 (∃𝑔(∀𝑥𝐵 ∃*𝑦 𝑥𝑔𝑦 ∧ ∀𝑥𝐴𝑦𝐵 𝑦𝑔𝑥) → ∃𝑓(∀𝑥𝐵 ∃*𝑦{𝑥, 𝑦} ∈ 𝑓 ∧ ∀𝑥𝐴𝑦𝐵 {𝑦, 𝑥} ∈ 𝑓))
79 preq1 4212 . . . . . . . . 9 (𝑤 = 𝑥 → {𝑤, 𝑧} = {𝑥, 𝑧})
8079eleq1d 2672 . . . . . . . 8 (𝑤 = 𝑥 → ({𝑤, 𝑧} ∈ 𝑓 ↔ {𝑥, 𝑧} ∈ 𝑓))
81 preq2 4213 . . . . . . . . 9 (𝑧 = 𝑦 → {𝑥, 𝑧} = {𝑥, 𝑦})
8281eleq1d 2672 . . . . . . . 8 (𝑧 = 𝑦 → ({𝑥, 𝑧} ∈ 𝑓 ↔ {𝑥, 𝑦} ∈ 𝑓))
83 eqid 2610 . . . . . . . 8 {⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓} = {⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}
8416, 17, 80, 82, 83brab 4923 . . . . . . 7 (𝑥{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑦 ↔ {𝑥, 𝑦} ∈ 𝑓)
8584mobii 2481 . . . . . 6 (∃*𝑦 𝑥{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑦 ↔ ∃*𝑦{𝑥, 𝑦} ∈ 𝑓)
8685ralbii 2963 . . . . 5 (∀𝑥𝐵 ∃*𝑦 𝑥{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑦 ↔ ∀𝑥𝐵 ∃*𝑦{𝑥, 𝑦} ∈ 𝑓)
87 preq1 4212 . . . . . . . . 9 (𝑤 = 𝑦 → {𝑤, 𝑧} = {𝑦, 𝑧})
8887eleq1d 2672 . . . . . . . 8 (𝑤 = 𝑦 → ({𝑤, 𝑧} ∈ 𝑓 ↔ {𝑦, 𝑧} ∈ 𝑓))
89 preq2 4213 . . . . . . . . 9 (𝑧 = 𝑥 → {𝑦, 𝑧} = {𝑦, 𝑥})
9089eleq1d 2672 . . . . . . . 8 (𝑧 = 𝑥 → ({𝑦, 𝑧} ∈ 𝑓 ↔ {𝑦, 𝑥} ∈ 𝑓))
9117, 16, 88, 90, 83brab 4923 . . . . . . 7 (𝑦{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑥 ↔ {𝑦, 𝑥} ∈ 𝑓)
9291rexbii 3023 . . . . . 6 (∃𝑦𝐵 𝑦{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑥 ↔ ∃𝑦𝐵 {𝑦, 𝑥} ∈ 𝑓)
9392ralbii 2963 . . . . 5 (∀𝑥𝐴𝑦𝐵 𝑦{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑥 ↔ ∀𝑥𝐴𝑦𝐵 {𝑦, 𝑥} ∈ 𝑓)
94 df-opab 4644 . . . . . . 7 {⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓} = {𝑣 ∣ ∃𝑤𝑧(𝑣 = ⟨𝑤, 𝑧⟩ ∧ {𝑤, 𝑧} ∈ 𝑓)}
95 vuniex 6852 . . . . . . . 8 𝑓 ∈ V
9619prid1 4241 . . . . . . . . . . 11 𝑤 ∈ {𝑤, 𝑧}
97 elunii 4377 . . . . . . . . . . 11 ((𝑤 ∈ {𝑤, 𝑧} ∧ {𝑤, 𝑧} ∈ 𝑓) → 𝑤 𝑓)
9896, 97mpan 702 . . . . . . . . . 10 ({𝑤, 𝑧} ∈ 𝑓𝑤 𝑓)
9998adantl 481 . . . . . . . . 9 ((𝑣 = ⟨𝑤, 𝑧⟩ ∧ {𝑤, 𝑧} ∈ 𝑓) → 𝑤 𝑓)
10099exlimiv 1845 . . . . . . . 8 (∃𝑧(𝑣 = ⟨𝑤, 𝑧⟩ ∧ {𝑤, 𝑧} ∈ 𝑓) → 𝑤 𝑓)
10118prid2 4242 . . . . . . . . . . 11 𝑧 ∈ {𝑤, 𝑧}
102 elunii 4377 . . . . . . . . . . 11 ((𝑧 ∈ {𝑤, 𝑧} ∧ {𝑤, 𝑧} ∈ 𝑓) → 𝑧 𝑓)
103101, 102mpan 702 . . . . . . . . . 10 ({𝑤, 𝑧} ∈ 𝑓𝑧 𝑓)
104103adantl 481 . . . . . . . . 9 ((𝑣 = ⟨𝑤, 𝑧⟩ ∧ {𝑤, 𝑧} ∈ 𝑓) → 𝑧 𝑓)
105 df-sn 4126 . . . . . . . . . . 11 {⟨𝑤, 𝑧⟩} = {𝑣𝑣 = ⟨𝑤, 𝑧⟩}
106 snex 4835 . . . . . . . . . . 11 {⟨𝑤, 𝑧⟩} ∈ V
107105, 106eqeltrri 2685 . . . . . . . . . 10 {𝑣𝑣 = ⟨𝑤, 𝑧⟩} ∈ V
108 simpl 472 . . . . . . . . . . 11 ((𝑣 = ⟨𝑤, 𝑧⟩ ∧ {𝑤, 𝑧} ∈ 𝑓) → 𝑣 = ⟨𝑤, 𝑧⟩)
109108ss2abi 3637 . . . . . . . . . 10 {𝑣 ∣ (𝑣 = ⟨𝑤, 𝑧⟩ ∧ {𝑤, 𝑧} ∈ 𝑓)} ⊆ {𝑣𝑣 = ⟨𝑤, 𝑧⟩}
110107, 109ssexi 4731 . . . . . . . . 9 {𝑣 ∣ (𝑣 = ⟨𝑤, 𝑧⟩ ∧ {𝑤, 𝑧} ∈ 𝑓)} ∈ V
11195, 104, 110abexex 7042 . . . . . . . 8 {𝑣 ∣ ∃𝑧(𝑣 = ⟨𝑤, 𝑧⟩ ∧ {𝑤, 𝑧} ∈ 𝑓)} ∈ V
11295, 100, 111abexex 7042 . . . . . . 7 {𝑣 ∣ ∃𝑤𝑧(𝑣 = ⟨𝑤, 𝑧⟩ ∧ {𝑤, 𝑧} ∈ 𝑓)} ∈ V
11394, 112eqeltri 2684 . . . . . 6 {⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓} ∈ V
114 breq 4585 . . . . . . . . 9 (𝑔 = {⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓} → (𝑥𝑔𝑦𝑥{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑦))
115114mobidv 2479 . . . . . . . 8 (𝑔 = {⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓} → (∃*𝑦 𝑥𝑔𝑦 ↔ ∃*𝑦 𝑥{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑦))
116115ralbidv 2969 . . . . . . 7 (𝑔 = {⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓} → (∀𝑥𝐵 ∃*𝑦 𝑥𝑔𝑦 ↔ ∀𝑥𝐵 ∃*𝑦 𝑥{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑦))
117 breq 4585 . . . . . . . . 9 (𝑔 = {⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓} → (𝑦𝑔𝑥𝑦{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑥))
118117rexbidv 3034 . . . . . . . 8 (𝑔 = {⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓} → (∃𝑦𝐵 𝑦𝑔𝑥 ↔ ∃𝑦𝐵 𝑦{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑥))
119118ralbidv 2969 . . . . . . 7 (𝑔 = {⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓} → (∀𝑥𝐴𝑦𝐵 𝑦𝑔𝑥 ↔ ∀𝑥𝐴𝑦𝐵 𝑦{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑥))
120116, 119anbi12d 743 . . . . . 6 (𝑔 = {⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓} → ((∀𝑥𝐵 ∃*𝑦 𝑥𝑔𝑦 ∧ ∀𝑥𝐴𝑦𝐵 𝑦𝑔𝑥) ↔ (∀𝑥𝐵 ∃*𝑦 𝑥{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑦 ∧ ∀𝑥𝐴𝑦𝐵 𝑦{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑥)))
121113, 120spcev 3273 . . . . 5 ((∀𝑥𝐵 ∃*𝑦 𝑥{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑦 ∧ ∀𝑥𝐴𝑦𝐵 𝑦{⟨𝑤, 𝑧⟩ ∣ {𝑤, 𝑧} ∈ 𝑓}𝑥) → ∃𝑔(∀𝑥𝐵 ∃*𝑦 𝑥𝑔𝑦 ∧ ∀𝑥𝐴𝑦𝐵 𝑦𝑔𝑥))
12286, 93, 121syl2anbr 496 . . . 4 ((∀𝑥𝐵 ∃*𝑦{𝑥, 𝑦} ∈ 𝑓 ∧ ∀𝑥𝐴𝑦𝐵 {𝑦, 𝑥} ∈ 𝑓) → ∃𝑔(∀𝑥𝐵 ∃*𝑦 𝑥𝑔𝑦 ∧ ∀𝑥𝐴𝑦𝐵 𝑦𝑔𝑥))
123122exlimiv 1845 . . 3 (∃𝑓(∀𝑥𝐵 ∃*𝑦{𝑥, 𝑦} ∈ 𝑓 ∧ ∀𝑥𝐴𝑦𝐵 {𝑦, 𝑥} ∈ 𝑓) → ∃𝑔(∀𝑥𝐵 ∃*𝑦 𝑥𝑔𝑦 ∧ ∀𝑥𝐴𝑦𝐵 𝑦𝑔𝑥))
12478, 123impbii 198 . 2 (∃𝑔(∀𝑥𝐵 ∃*𝑦 𝑥𝑔𝑦 ∧ ∀𝑥𝐴𝑦𝐵 𝑦𝑔𝑥) ↔ ∃𝑓(∀𝑥𝐵 ∃*𝑦{𝑥, 𝑦} ∈ 𝑓 ∧ ∀𝑥𝐴𝑦𝐵 {𝑦, 𝑥} ∈ 𝑓))
1252, 124bitri 263 1 (𝐴𝐵 ↔ ∃𝑓(∀𝑥𝐵 ∃*𝑦{𝑥, 𝑦} ∈ 𝑓 ∧ ∀𝑥𝐴𝑦𝐵 {𝑦, 𝑥} ∈ 𝑓))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 195  wa 383  wal 1473   = wceq 1475  wex 1695  wcel 1977  ∃*wmo 2459  {cab 2596  wne 2780  wral 2896  wrex 2897  Vcvv 3173  cin 3539  c0 3874  {csn 4125  {cpr 4127  cop 4131   cuni 4372   class class class wbr 4583  {copab 4642  cdom 7839
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1713  ax-4 1728  ax-5 1827  ax-6 1875  ax-7 1922  ax-8 1979  ax-9 1986  ax-10 2006  ax-11 2021  ax-12 2034  ax-13 2234  ax-ext 2590  ax-rep 4699  ax-sep 4709  ax-nul 4717  ax-pow 4769  ax-pr 4833  ax-un 6847  ax-ac2 9168
This theorem depends on definitions:  df-bi 196  df-or 384  df-an 385  df-3or 1032  df-3an 1033  df-tru 1478  df-ex 1696  df-nf 1701  df-sb 1868  df-eu 2462  df-mo 2463  df-clab 2597  df-cleq 2603  df-clel 2606  df-nfc 2740  df-ne 2782  df-ral 2901  df-rex 2902  df-reu 2903  df-rmo 2904  df-rab 2905  df-v 3175  df-sbc 3403  df-csb 3500  df-dif 3543  df-un 3545  df-in 3547  df-ss 3554  df-pss 3556  df-nul 3875  df-if 4037  df-pw 4110  df-sn 4126  df-pr 4128  df-tp 4130  df-op 4132  df-uni 4373  df-int 4411  df-iun 4457  df-br 4584  df-opab 4644  df-mpt 4645  df-tr 4681  df-eprel 4949  df-id 4953  df-po 4959  df-so 4960  df-fr 4997  df-se 4998  df-we 4999  df-xp 5044  df-rel 5045  df-cnv 5046  df-co 5047  df-dm 5048  df-rn 5049  df-res 5050  df-ima 5051  df-pred 5597  df-ord 5643  df-on 5644  df-suc 5646  df-iota 5768  df-fun 5806  df-fn 5807  df-f 5808  df-f1 5809  df-fo 5810  df-f1o 5811  df-fv 5812  df-isom 5813  df-riota 6511  df-ov 6552  df-oprab 6553  df-mpt2 6554  df-1st 7059  df-2nd 7060  df-wrecs 7294  df-recs 7355  df-er 7629  df-map 7746  df-en 7842  df-dom 7843  df-sdom 7844  df-card 8648  df-acn 8651  df-ac 8822
This theorem is referenced by:  grothprim  9535
  Copyright terms: Public domain W3C validator