Proof of Theorem eldisjdmqsim
| Step | Hyp | Ref
| Expression |
| 1 | | elin 3916 |
. . . 4
⊢ (𝑥 ∈ ([𝑢]𝑅 ∩ [𝑣]𝑅) ↔ (𝑥 ∈ [𝑢]𝑅 ∧ 𝑥 ∈ [𝑣]𝑅)) |
| 2 | | elecALTV 38441 |
. . . . . 6
⊢ ((𝑢 ∈ V ∧ 𝑥 ∈ V) → (𝑥 ∈ [𝑢]𝑅 ↔ 𝑢𝑅𝑥)) |
| 3 | 2 | el2v 3446 |
. . . . 5
⊢ (𝑥 ∈ [𝑢]𝑅 ↔ 𝑢𝑅𝑥) |
| 4 | | elecALTV 38441 |
. . . . . 6
⊢ ((𝑣 ∈ V ∧ 𝑥 ∈ V) → (𝑥 ∈ [𝑣]𝑅 ↔ 𝑣𝑅𝑥)) |
| 5 | 4 | el2v 3446 |
. . . . 5
⊢ (𝑥 ∈ [𝑣]𝑅 ↔ 𝑣𝑅𝑥) |
| 6 | 3, 5 | anbi12i 629 |
. . . 4
⊢ ((𝑥 ∈ [𝑢]𝑅 ∧ 𝑥 ∈ [𝑣]𝑅) ↔ (𝑢𝑅𝑥 ∧ 𝑣𝑅𝑥)) |
| 7 | 1, 6 | bitr2i 276 |
. . 3
⊢ ((𝑢𝑅𝑥 ∧ 𝑣𝑅𝑥) ↔ 𝑥 ∈ ([𝑢]𝑅 ∩ [𝑣]𝑅)) |
| 8 | | ne0i 4292 |
. . 3
⊢ (𝑥 ∈ ([𝑢]𝑅 ∩ [𝑣]𝑅) → ([𝑢]𝑅 ∩ [𝑣]𝑅) ≠ ∅) |
| 9 | 7, 8 | sylbi 217 |
. 2
⊢ ((𝑢𝑅𝑥 ∧ 𝑣𝑅𝑥) → ([𝑢]𝑅 ∩ [𝑣]𝑅) ≠ ∅) |
| 10 | | 19.8a 2187 |
. . . . . . 7
⊢ (𝑢𝑅𝑥 → ∃𝑥 𝑢𝑅𝑥) |
| 11 | | eldmg 5846 |
. . . . . . . 8
⊢ (𝑢 ∈ V → (𝑢 ∈ dom 𝑅 ↔ ∃𝑥 𝑢𝑅𝑥)) |
| 12 | 11 | elv 3444 |
. . . . . . 7
⊢ (𝑢 ∈ dom 𝑅 ↔ ∃𝑥 𝑢𝑅𝑥) |
| 13 | 10, 12 | sylibr 234 |
. . . . . 6
⊢ (𝑢𝑅𝑥 → 𝑢 ∈ dom 𝑅) |
| 14 | | 19.8a 2187 |
. . . . . . 7
⊢ (𝑣𝑅𝑥 → ∃𝑥 𝑣𝑅𝑥) |
| 15 | | eldmg 5846 |
. . . . . . . 8
⊢ (𝑣 ∈ V → (𝑣 ∈ dom 𝑅 ↔ ∃𝑥 𝑣𝑅𝑥)) |
| 16 | 15 | elv 3444 |
. . . . . . 7
⊢ (𝑣 ∈ dom 𝑅 ↔ ∃𝑥 𝑣𝑅𝑥) |
| 17 | 14, 16 | sylibr 234 |
. . . . . 6
⊢ (𝑣𝑅𝑥 → 𝑣 ∈ dom 𝑅) |
| 18 | 13, 17 | anim12i 614 |
. . . . 5
⊢ ((𝑢𝑅𝑥 ∧ 𝑣𝑅𝑥) → (𝑢 ∈ dom 𝑅 ∧ 𝑣 ∈ dom 𝑅)) |
| 19 | | eceldmqs 8726 |
. . . . . 6
⊢ (𝑅 ∈ Rels → ([𝑢]𝑅 ∈ (dom 𝑅 / 𝑅) ↔ 𝑢 ∈ dom 𝑅)) |
| 20 | | eceldmqs 8726 |
. . . . . 6
⊢ (𝑅 ∈ Rels → ([𝑣]𝑅 ∈ (dom 𝑅 / 𝑅) ↔ 𝑣 ∈ dom 𝑅)) |
| 21 | 19, 20 | anbi12d 633 |
. . . . 5
⊢ (𝑅 ∈ Rels → (([𝑢]𝑅 ∈ (dom 𝑅 / 𝑅) ∧ [𝑣]𝑅 ∈ (dom 𝑅 / 𝑅)) ↔ (𝑢 ∈ dom 𝑅 ∧ 𝑣 ∈ dom 𝑅))) |
| 22 | 18, 21 | imbitrrid 246 |
. . . 4
⊢ (𝑅 ∈ Rels → ((𝑢𝑅𝑥 ∧ 𝑣𝑅𝑥) → ([𝑢]𝑅 ∈ (dom 𝑅 / 𝑅) ∧ [𝑣]𝑅 ∈ (dom 𝑅 / 𝑅)))) |
| 23 | 22 | adantl 481 |
. . 3
⊢ (( ElDisj
(dom 𝑅 / 𝑅) ∧ 𝑅 ∈ Rels ) → ((𝑢𝑅𝑥 ∧ 𝑣𝑅𝑥) → ([𝑢]𝑅 ∈ (dom 𝑅 / 𝑅) ∧ [𝑣]𝑅 ∈ (dom 𝑅 / 𝑅)))) |
| 24 | | eldisjim3 38985 |
. . . 4
⊢ ( ElDisj
(dom 𝑅 / 𝑅) → (([𝑢]𝑅 ∈ (dom 𝑅 / 𝑅) ∧ [𝑣]𝑅 ∈ (dom 𝑅 / 𝑅)) → (([𝑢]𝑅 ∩ [𝑣]𝑅) ≠ ∅ → [𝑢]𝑅 = [𝑣]𝑅))) |
| 25 | 24 | adantr 480 |
. . 3
⊢ (( ElDisj
(dom 𝑅 / 𝑅) ∧ 𝑅 ∈ Rels ) → (([𝑢]𝑅 ∈ (dom 𝑅 / 𝑅) ∧ [𝑣]𝑅 ∈ (dom 𝑅 / 𝑅)) → (([𝑢]𝑅 ∩ [𝑣]𝑅) ≠ ∅ → [𝑢]𝑅 = [𝑣]𝑅))) |
| 26 | 23, 25 | syld 47 |
. 2
⊢ (( ElDisj
(dom 𝑅 / 𝑅) ∧ 𝑅 ∈ Rels ) → ((𝑢𝑅𝑥 ∧ 𝑣𝑅𝑥) → (([𝑢]𝑅 ∩ [𝑣]𝑅) ≠ ∅ → [𝑢]𝑅 = [𝑣]𝑅))) |
| 27 | 9, 26 | mpdi 45 |
1
⊢ (( ElDisj
(dom 𝑅 / 𝑅) ∧ 𝑅 ∈ Rels ) → ((𝑢𝑅𝑥 ∧ 𝑣𝑅𝑥) → [𝑢]𝑅 = [𝑣]𝑅)) |