Proof of Theorem brab2dd
Step | Hyp | Ref
| Expression |
1 | | df-br 5152 |
. . . 4
⊢ (𝐴𝑅𝐵 ↔ 〈𝐴, 𝐵〉 ∈ 𝑅) |
2 | | brab2dd.1 |
. . . . 5
⊢ (𝜑 → 𝑅 = {〈𝑥, 𝑦〉 ∣ ((𝑥 ∈ 𝐶 ∧ 𝑦 ∈ 𝐷) ∧ 𝜓)}) |
3 | 2 | eleq2d 2827 |
. . . 4
⊢ (𝜑 → (〈𝐴, 𝐵〉 ∈ 𝑅 ↔ 〈𝐴, 𝐵〉 ∈ {〈𝑥, 𝑦〉 ∣ ((𝑥 ∈ 𝐶 ∧ 𝑦 ∈ 𝐷) ∧ 𝜓)})) |
4 | 1, 3 | bitrid 283 |
. . 3
⊢ (𝜑 → (𝐴𝑅𝐵 ↔ 〈𝐴, 𝐵〉 ∈ {〈𝑥, 𝑦〉 ∣ ((𝑥 ∈ 𝐶 ∧ 𝑦 ∈ 𝐷) ∧ 𝜓)})) |
5 | | elopab 5541 |
. . 3
⊢
(〈𝐴, 𝐵〉 ∈ {〈𝑥, 𝑦〉 ∣ ((𝑥 ∈ 𝐶 ∧ 𝑦 ∈ 𝐷) ∧ 𝜓)} ↔ ∃𝑥∃𝑦(〈𝐴, 𝐵〉 = 〈𝑥, 𝑦〉 ∧ ((𝑥 ∈ 𝐶 ∧ 𝑦 ∈ 𝐷) ∧ 𝜓))) |
6 | 4, 5 | bitrdi 287 |
. 2
⊢ (𝜑 → (𝐴𝑅𝐵 ↔ ∃𝑥∃𝑦(〈𝐴, 𝐵〉 = 〈𝑥, 𝑦〉 ∧ ((𝑥 ∈ 𝐶 ∧ 𝑦 ∈ 𝐷) ∧ 𝜓)))) |
7 | | simpl 482 |
. . . . . . 7
⊢ ((𝜑 ∧ (〈𝐴, 𝐵〉 = 〈𝑥, 𝑦〉 ∧ ((𝑥 ∈ 𝐶 ∧ 𝑦 ∈ 𝐷) ∧ 𝜓))) → 𝜑) |
8 | | eqcom 2744 |
. . . . . . . . 9
⊢
(〈𝑥, 𝑦〉 = 〈𝐴, 𝐵〉 ↔ 〈𝐴, 𝐵〉 = 〈𝑥, 𝑦〉) |
9 | | vex 3485 |
. . . . . . . . . 10
⊢ 𝑥 ∈ V |
10 | | vex 3485 |
. . . . . . . . . 10
⊢ 𝑦 ∈ V |
11 | 9, 10 | opth 5490 |
. . . . . . . . 9
⊢
(〈𝑥, 𝑦〉 = 〈𝐴, 𝐵〉 ↔ (𝑥 = 𝐴 ∧ 𝑦 = 𝐵)) |
12 | 8, 11 | sylbb1 237 |
. . . . . . . 8
⊢
(〈𝐴, 𝐵〉 = 〈𝑥, 𝑦〉 → (𝑥 = 𝐴 ∧ 𝑦 = 𝐵)) |
13 | 12 | ad2antrl 728 |
. . . . . . 7
⊢ ((𝜑 ∧ (〈𝐴, 𝐵〉 = 〈𝑥, 𝑦〉 ∧ ((𝑥 ∈ 𝐶 ∧ 𝑦 ∈ 𝐷) ∧ 𝜓))) → (𝑥 = 𝐴 ∧ 𝑦 = 𝐵)) |
14 | | simprrl 781 |
. . . . . . 7
⊢ ((𝜑 ∧ (〈𝐴, 𝐵〉 = 〈𝑥, 𝑦〉 ∧ ((𝑥 ∈ 𝐶 ∧ 𝑦 ∈ 𝐷) ∧ 𝜓))) → (𝑥 ∈ 𝐶 ∧ 𝑦 ∈ 𝐷)) |
15 | | brab2dd.3 |
. . . . . . . 8
⊢ ((𝜑 ∧ (𝑥 = 𝐴 ∧ 𝑦 = 𝐵)) → ((𝑥 ∈ 𝐶 ∧ 𝑦 ∈ 𝐷) ↔ (𝐴 ∈ 𝑈 ∧ 𝐵 ∈ 𝑉))) |
16 | 15 | biimpa 476 |
. . . . . . 7
⊢ (((𝜑 ∧ (𝑥 = 𝐴 ∧ 𝑦 = 𝐵)) ∧ (𝑥 ∈ 𝐶 ∧ 𝑦 ∈ 𝐷)) → (𝐴 ∈ 𝑈 ∧ 𝐵 ∈ 𝑉)) |
17 | 7, 13, 14, 16 | syl21anc 838 |
. . . . . 6
⊢ ((𝜑 ∧ (〈𝐴, 𝐵〉 = 〈𝑥, 𝑦〉 ∧ ((𝑥 ∈ 𝐶 ∧ 𝑦 ∈ 𝐷) ∧ 𝜓))) → (𝐴 ∈ 𝑈 ∧ 𝐵 ∈ 𝑉)) |
18 | 17 | ex 412 |
. . . . 5
⊢ (𝜑 → ((〈𝐴, 𝐵〉 = 〈𝑥, 𝑦〉 ∧ ((𝑥 ∈ 𝐶 ∧ 𝑦 ∈ 𝐷) ∧ 𝜓)) → (𝐴 ∈ 𝑈 ∧ 𝐵 ∈ 𝑉))) |
19 | 18 | exlimdvv 1934 |
. . . 4
⊢ (𝜑 → (∃𝑥∃𝑦(〈𝐴, 𝐵〉 = 〈𝑥, 𝑦〉 ∧ ((𝑥 ∈ 𝐶 ∧ 𝑦 ∈ 𝐷) ∧ 𝜓)) → (𝐴 ∈ 𝑈 ∧ 𝐵 ∈ 𝑉))) |
20 | 19 | imp 406 |
. . 3
⊢ ((𝜑 ∧ ∃𝑥∃𝑦(〈𝐴, 𝐵〉 = 〈𝑥, 𝑦〉 ∧ ((𝑥 ∈ 𝐶 ∧ 𝑦 ∈ 𝐷) ∧ 𝜓))) → (𝐴 ∈ 𝑈 ∧ 𝐵 ∈ 𝑉)) |
21 | | simprl 771 |
. . 3
⊢ ((𝜑 ∧ ((𝐴 ∈ 𝑈 ∧ 𝐵 ∈ 𝑉) ∧ 𝜒)) → (𝐴 ∈ 𝑈 ∧ 𝐵 ∈ 𝑉)) |
22 | | simprl 771 |
. . . 4
⊢ ((𝜑 ∧ (𝐴 ∈ 𝑈 ∧ 𝐵 ∈ 𝑉)) → 𝐴 ∈ 𝑈) |
23 | | simprr 773 |
. . . 4
⊢ ((𝜑 ∧ (𝐴 ∈ 𝑈 ∧ 𝐵 ∈ 𝑉)) → 𝐵 ∈ 𝑉) |
24 | | brab2dd.2 |
. . . . . 6
⊢ ((𝜑 ∧ (𝑥 = 𝐴 ∧ 𝑦 = 𝐵)) → (𝜓 ↔ 𝜒)) |
25 | 15, 24 | anbi12d 632 |
. . . . 5
⊢ ((𝜑 ∧ (𝑥 = 𝐴 ∧ 𝑦 = 𝐵)) → (((𝑥 ∈ 𝐶 ∧ 𝑦 ∈ 𝐷) ∧ 𝜓) ↔ ((𝐴 ∈ 𝑈 ∧ 𝐵 ∈ 𝑉) ∧ 𝜒))) |
26 | 25 | adantlr 715 |
. . . 4
⊢ (((𝜑 ∧ (𝐴 ∈ 𝑈 ∧ 𝐵 ∈ 𝑉)) ∧ (𝑥 = 𝐴 ∧ 𝑦 = 𝐵)) → (((𝑥 ∈ 𝐶 ∧ 𝑦 ∈ 𝐷) ∧ 𝜓) ↔ ((𝐴 ∈ 𝑈 ∧ 𝐵 ∈ 𝑉) ∧ 𝜒))) |
27 | 22, 23, 26 | copsex2dv 5508 |
. . 3
⊢ ((𝜑 ∧ (𝐴 ∈ 𝑈 ∧ 𝐵 ∈ 𝑉)) → (∃𝑥∃𝑦(〈𝐴, 𝐵〉 = 〈𝑥, 𝑦〉 ∧ ((𝑥 ∈ 𝐶 ∧ 𝑦 ∈ 𝐷) ∧ 𝜓)) ↔ ((𝐴 ∈ 𝑈 ∧ 𝐵 ∈ 𝑉) ∧ 𝜒))) |
28 | 20, 21, 27 | bibiad 840 |
. 2
⊢ (𝜑 → (∃𝑥∃𝑦(〈𝐴, 𝐵〉 = 〈𝑥, 𝑦〉 ∧ ((𝑥 ∈ 𝐶 ∧ 𝑦 ∈ 𝐷) ∧ 𝜓)) ↔ ((𝐴 ∈ 𝑈 ∧ 𝐵 ∈ 𝑉) ∧ 𝜒))) |
29 | 6, 28 | bitrd 279 |
1
⊢ (𝜑 → (𝐴𝑅𝐵 ↔ ((𝐴 ∈ 𝑈 ∧ 𝐵 ∈ 𝑉) ∧ 𝜒))) |