| Step | Hyp | Ref
| Expression |
| 1 | | simprl 771 |
. . . 4
⊢ (( Disj
𝑅 ∧ (𝐴 ∈ dom 𝑅 ∧ 𝐵 ∈ dom 𝑅)) → 𝐴 ∈ dom 𝑅) |
| 2 | | simprr 773 |
. . . 4
⊢ (( Disj
𝑅 ∧ (𝐴 ∈ dom 𝑅 ∧ 𝐵 ∈ dom 𝑅)) → 𝐵 ∈ dom 𝑅) |
| 3 | | eleq1 2823 |
. . . . . 6
⊢ (𝑢 = 𝐴 → (𝑢 ∈ dom 𝑅 ↔ 𝐴 ∈ dom 𝑅)) |
| 4 | | eleq1 2823 |
. . . . . 6
⊢ (𝑣 = 𝐵 → (𝑣 ∈ dom 𝑅 ↔ 𝐵 ∈ dom 𝑅)) |
| 5 | 3, 4 | bi2anan9 639 |
. . . . 5
⊢ ((𝑢 = 𝐴 ∧ 𝑣 = 𝐵) → ((𝑢 ∈ dom 𝑅 ∧ 𝑣 ∈ dom 𝑅) ↔ (𝐴 ∈ dom 𝑅 ∧ 𝐵 ∈ dom 𝑅))) |
| 6 | | eceq1 8675 |
. . . . . . 7
⊢ (𝑢 = 𝐴 → [𝑢]𝑅 = [𝐴]𝑅) |
| 7 | | eceq1 8675 |
. . . . . . 7
⊢ (𝑣 = 𝐵 → [𝑣]𝑅 = [𝐵]𝑅) |
| 8 | 6, 7 | eqeqan12d 2749 |
. . . . . 6
⊢ ((𝑢 = 𝐴 ∧ 𝑣 = 𝐵) → ([𝑢]𝑅 = [𝑣]𝑅 ↔ [𝐴]𝑅 = [𝐵]𝑅)) |
| 9 | | eqeq12 2752 |
. . . . . 6
⊢ ((𝑢 = 𝐴 ∧ 𝑣 = 𝐵) → (𝑢 = 𝑣 ↔ 𝐴 = 𝐵)) |
| 10 | 8, 9 | imbi12d 344 |
. . . . 5
⊢ ((𝑢 = 𝐴 ∧ 𝑣 = 𝐵) → (([𝑢]𝑅 = [𝑣]𝑅 → 𝑢 = 𝑣) ↔ ([𝐴]𝑅 = [𝐵]𝑅 → 𝐴 = 𝐵))) |
| 11 | 5, 10 | imbi12d 344 |
. . . 4
⊢ ((𝑢 = 𝐴 ∧ 𝑣 = 𝐵) → (((𝑢 ∈ dom 𝑅 ∧ 𝑣 ∈ dom 𝑅) → ([𝑢]𝑅 = [𝑣]𝑅 → 𝑢 = 𝑣)) ↔ ((𝐴 ∈ dom 𝑅 ∧ 𝐵 ∈ dom 𝑅) → ([𝐴]𝑅 = [𝐵]𝑅 → 𝐴 = 𝐵)))) |
| 12 | | disjimeceqim 38974 |
. . . . . 6
⊢ ( Disj
𝑅 → ∀𝑢 ∈ dom 𝑅∀𝑣 ∈ dom 𝑅([𝑢]𝑅 = [𝑣]𝑅 → 𝑢 = 𝑣)) |
| 13 | | rsp2 3252 |
. . . . . 6
⊢
(∀𝑢 ∈
dom 𝑅∀𝑣 ∈ dom 𝑅([𝑢]𝑅 = [𝑣]𝑅 → 𝑢 = 𝑣) → ((𝑢 ∈ dom 𝑅 ∧ 𝑣 ∈ dom 𝑅) → ([𝑢]𝑅 = [𝑣]𝑅 → 𝑢 = 𝑣))) |
| 14 | 12, 13 | syl 17 |
. . . . 5
⊢ ( Disj
𝑅 → ((𝑢 ∈ dom 𝑅 ∧ 𝑣 ∈ dom 𝑅) → ([𝑢]𝑅 = [𝑣]𝑅 → 𝑢 = 𝑣))) |
| 15 | 14 | adantr 480 |
. . . 4
⊢ (( Disj
𝑅 ∧ (𝐴 ∈ dom 𝑅 ∧ 𝐵 ∈ dom 𝑅)) → ((𝑢 ∈ dom 𝑅 ∧ 𝑣 ∈ dom 𝑅) → ([𝑢]𝑅 = [𝑣]𝑅 → 𝑢 = 𝑣))) |
| 16 | 1, 2, 11, 15 | vtocl2d 3518 |
. . 3
⊢ (( Disj
𝑅 ∧ (𝐴 ∈ dom 𝑅 ∧ 𝐵 ∈ dom 𝑅)) → ((𝐴 ∈ dom 𝑅 ∧ 𝐵 ∈ dom 𝑅) → ([𝐴]𝑅 = [𝐵]𝑅 → 𝐴 = 𝐵))) |
| 17 | 16 | ex 412 |
. 2
⊢ ( Disj
𝑅 → ((𝐴 ∈ dom 𝑅 ∧ 𝐵 ∈ dom 𝑅) → ((𝐴 ∈ dom 𝑅 ∧ 𝐵 ∈ dom 𝑅) → ([𝐴]𝑅 = [𝐵]𝑅 → 𝐴 = 𝐵)))) |
| 18 | 17 | pm2.43d 53 |
1
⊢ ( Disj
𝑅 → ((𝐴 ∈ dom 𝑅 ∧ 𝐵 ∈ dom 𝑅) → ([𝐴]𝑅 = [𝐵]𝑅 → 𝐴 = 𝐵))) |