Proof of Theorem elrelb
| Step | Hyp | Ref
| Expression |
| 1 | | elrel 5778 |
. . . 4
⊢ ((Rel
𝑅 ∧ 𝐴 ∈ 𝑅) → ∃𝑥∃𝑦 𝐴 = 〈𝑥, 𝑦〉) |
| 2 | | eleq1 2848 |
. . . . . . . . 9
⊢ (𝐴 = 〈𝑥, 𝑦〉 → (𝐴 ∈ 𝑅 ↔ 〈𝑥, 𝑦〉 ∈ 𝑅)) |
| 3 | | df-br 5104 |
. . . . . . . . . 10
⊢ (𝑥𝑅𝑦 ↔ 〈𝑥, 𝑦〉 ∈ 𝑅) |
| 4 | 3 | biimpri 231 |
. . . . . . . . 9
⊢
(〈𝑥, 𝑦〉 ∈ 𝑅 → 𝑥𝑅𝑦) |
| 5 | 2, 4 | biimtrdi 256 |
. . . . . . . 8
⊢ (𝐴 = 〈𝑥, 𝑦〉 → (𝐴 ∈ 𝑅 → 𝑥𝑅𝑦)) |
| 6 | 5 | com12 33 |
. . . . . . 7
⊢ (𝐴 ∈ 𝑅 → (𝐴 = 〈𝑥, 𝑦〉 → 𝑥𝑅𝑦)) |
| 7 | 6 | adantl 487 |
. . . . . 6
⊢ ((Rel
𝑅 ∧ 𝐴 ∈ 𝑅) → (𝐴 = 〈𝑥, 𝑦〉 → 𝑥𝑅𝑦)) |
| 8 | 7 | ancld 560 |
. . . . 5
⊢ ((Rel
𝑅 ∧ 𝐴 ∈ 𝑅) → (𝐴 = 〈𝑥, 𝑦〉 → (𝐴 = 〈𝑥, 𝑦〉 ∧ 𝑥𝑅𝑦))) |
| 9 | 8 | 2eximdv 1952 |
. . . 4
⊢ ((Rel
𝑅 ∧ 𝐴 ∈ 𝑅) → (∃𝑥∃𝑦 𝐴 = 〈𝑥, 𝑦〉 → ∃𝑥∃𝑦(𝐴 = 〈𝑥, 𝑦〉 ∧ 𝑥𝑅𝑦))) |
| 10 | 1, 9 | mpd 16 |
. . 3
⊢ ((Rel
𝑅 ∧ 𝐴 ∈ 𝑅) → ∃𝑥∃𝑦(𝐴 = 〈𝑥, 𝑦〉 ∧ 𝑥𝑅𝑦)) |
| 11 | 10 | ex 418 |
. 2
⊢ (Rel
𝑅 → (𝐴 ∈ 𝑅 → ∃𝑥∃𝑦(𝐴 = 〈𝑥, 𝑦〉 ∧ 𝑥𝑅𝑦))) |
| 12 | 3 | bilani 510 |
. . . . 5
⊢ ((𝐴 = 〈𝑥, 𝑦〉 ∧ 𝑥𝑅𝑦) → 〈𝑥, 𝑦〉 ∈ 𝑅) |
| 13 | 2 | adantr 486 |
. . . . 5
⊢ ((𝐴 = 〈𝑥, 𝑦〉 ∧ 𝑥𝑅𝑦) → (𝐴 ∈ 𝑅 ↔ 〈𝑥, 𝑦〉 ∈ 𝑅)) |
| 14 | 12, 13 | mpbird 260 |
. . . 4
⊢ ((𝐴 = 〈𝑥, 𝑦〉 ∧ 𝑥𝑅𝑦) → 𝐴 ∈ 𝑅) |
| 15 | 14 | exlimiv 1963 |
. . 3
⊢
(∃𝑦(𝐴 = 〈𝑥, 𝑦〉 ∧ 𝑥𝑅𝑦) → 𝐴 ∈ 𝑅) |
| 16 | 15 | exlimiv 1963 |
. 2
⊢
(∃𝑥∃𝑦(𝐴 = 〈𝑥, 𝑦〉 ∧ 𝑥𝑅𝑦) → 𝐴 ∈ 𝑅) |
| 17 | 11, 16 | impbid1 228 |
1
⊢ (Rel
𝑅 → (𝐴 ∈ 𝑅 ↔ ∃𝑥∃𝑦(𝐴 = 〈𝑥, 𝑦〉 ∧ 𝑥𝑅𝑦))) |