Proof of Theorem disjimeceqim
| Step | Hyp | Ref
| Expression |
| 1 | | ecdmn0 8688 |
. . . . . . 7
⊢ (𝑢 ∈ dom 𝑅 ↔ [𝑢]𝑅 ≠ ∅) |
| 2 | 1 | biimpi 216 |
. . . . . 6
⊢ (𝑢 ∈ dom 𝑅 → [𝑢]𝑅 ≠ ∅) |
| 3 | | ineq2 4165 |
. . . . . . . 8
⊢ ([𝑢]𝑅 = [𝑣]𝑅 → ([𝑢]𝑅 ∩ [𝑢]𝑅) = ([𝑢]𝑅 ∩ [𝑣]𝑅)) |
| 4 | | inidm 4178 |
. . . . . . . 8
⊢ ([𝑢]𝑅 ∩ [𝑢]𝑅) = [𝑢]𝑅 |
| 5 | 3, 4 | eqtr3di 2785 |
. . . . . . 7
⊢ ([𝑢]𝑅 = [𝑣]𝑅 → ([𝑢]𝑅 ∩ [𝑣]𝑅) = [𝑢]𝑅) |
| 6 | 5 | neeq1d 2990 |
. . . . . 6
⊢ ([𝑢]𝑅 = [𝑣]𝑅 → (([𝑢]𝑅 ∩ [𝑣]𝑅) ≠ ∅ ↔ [𝑢]𝑅 ≠ ∅)) |
| 7 | 2, 6 | syl5ibrcom 247 |
. . . . 5
⊢ (𝑢 ∈ dom 𝑅 → ([𝑢]𝑅 = [𝑣]𝑅 → ([𝑢]𝑅 ∩ [𝑣]𝑅) ≠ ∅)) |
| 8 | 7 | rgen 3052 |
. . . 4
⊢
∀𝑢 ∈ dom
𝑅([𝑢]𝑅 = [𝑣]𝑅 → ([𝑢]𝑅 ∩ [𝑣]𝑅) ≠ ∅) |
| 9 | 8 | rgenw 3054 |
. . 3
⊢
∀𝑣 ∈ dom
𝑅∀𝑢 ∈ dom 𝑅([𝑢]𝑅 = [𝑣]𝑅 → ([𝑢]𝑅 ∩ [𝑣]𝑅) ≠ ∅) |
| 10 | | ralcom 3263 |
. . 3
⊢
(∀𝑣 ∈
dom 𝑅∀𝑢 ∈ dom 𝑅([𝑢]𝑅 = [𝑣]𝑅 → ([𝑢]𝑅 ∩ [𝑣]𝑅) ≠ ∅) ↔ ∀𝑢 ∈ dom 𝑅∀𝑣 ∈ dom 𝑅([𝑢]𝑅 = [𝑣]𝑅 → ([𝑢]𝑅 ∩ [𝑣]𝑅) ≠ ∅)) |
| 11 | 9, 10 | mpbi 230 |
. 2
⊢
∀𝑢 ∈ dom
𝑅∀𝑣 ∈ dom 𝑅([𝑢]𝑅 = [𝑣]𝑅 → ([𝑢]𝑅 ∩ [𝑣]𝑅) ≠ ∅) |
| 12 | | dfdisjALTV5a 38973 |
. . 3
⊢ ( Disj
𝑅 ↔ (∀𝑢 ∈ dom 𝑅∀𝑣 ∈ dom 𝑅(([𝑢]𝑅 ∩ [𝑣]𝑅) ≠ ∅ → 𝑢 = 𝑣) ∧ Rel 𝑅)) |
| 13 | 12 | simplbi 497 |
. 2
⊢ ( Disj
𝑅 → ∀𝑢 ∈ dom 𝑅∀𝑣 ∈ dom 𝑅(([𝑢]𝑅 ∩ [𝑣]𝑅) ≠ ∅ → 𝑢 = 𝑣)) |
| 14 | | r19.26-2 3120 |
. . 3
⊢
(∀𝑢 ∈
dom 𝑅∀𝑣 ∈ dom 𝑅(([𝑢]𝑅 = [𝑣]𝑅 → ([𝑢]𝑅 ∩ [𝑣]𝑅) ≠ ∅) ∧ (([𝑢]𝑅 ∩ [𝑣]𝑅) ≠ ∅ → 𝑢 = 𝑣)) ↔ (∀𝑢 ∈ dom 𝑅∀𝑣 ∈ dom 𝑅([𝑢]𝑅 = [𝑣]𝑅 → ([𝑢]𝑅 ∩ [𝑣]𝑅) ≠ ∅) ∧ ∀𝑢 ∈ dom 𝑅∀𝑣 ∈ dom 𝑅(([𝑢]𝑅 ∩ [𝑣]𝑅) ≠ ∅ → 𝑢 = 𝑣))) |
| 15 | | pm3.33 765 |
. . . 4
⊢ ((([𝑢]𝑅 = [𝑣]𝑅 → ([𝑢]𝑅 ∩ [𝑣]𝑅) ≠ ∅) ∧ (([𝑢]𝑅 ∩ [𝑣]𝑅) ≠ ∅ → 𝑢 = 𝑣)) → ([𝑢]𝑅 = [𝑣]𝑅 → 𝑢 = 𝑣)) |
| 16 | 15 | 2ralimi 3105 |
. . 3
⊢
(∀𝑢 ∈
dom 𝑅∀𝑣 ∈ dom 𝑅(([𝑢]𝑅 = [𝑣]𝑅 → ([𝑢]𝑅 ∩ [𝑣]𝑅) ≠ ∅) ∧ (([𝑢]𝑅 ∩ [𝑣]𝑅) ≠ ∅ → 𝑢 = 𝑣)) → ∀𝑢 ∈ dom 𝑅∀𝑣 ∈ dom 𝑅([𝑢]𝑅 = [𝑣]𝑅 → 𝑢 = 𝑣)) |
| 17 | 14, 16 | sylbir 235 |
. 2
⊢
((∀𝑢 ∈
dom 𝑅∀𝑣 ∈ dom 𝑅([𝑢]𝑅 = [𝑣]𝑅 → ([𝑢]𝑅 ∩ [𝑣]𝑅) ≠ ∅) ∧ ∀𝑢 ∈ dom 𝑅∀𝑣 ∈ dom 𝑅(([𝑢]𝑅 ∩ [𝑣]𝑅) ≠ ∅ → 𝑢 = 𝑣)) → ∀𝑢 ∈ dom 𝑅∀𝑣 ∈ dom 𝑅([𝑢]𝑅 = [𝑣]𝑅 → 𝑢 = 𝑣)) |
| 18 | 11, 13, 17 | sylancr 588 |
1
⊢ ( Disj
𝑅 → ∀𝑢 ∈ dom 𝑅∀𝑣 ∈ dom 𝑅([𝑢]𝑅 = [𝑣]𝑅 → 𝑢 = 𝑣)) |