Proof of Theorem cnvref4
| Step | Hyp | Ref
| Expression |
| 1 | | dfrel6 38336 |
. . . . . . 7
⊢ (Rel
𝑅 ↔ (𝑅 ∩ (dom 𝑅 × ran 𝑅)) = 𝑅) |
| 2 | 1 | biimpi 216 |
. . . . . 6
⊢ (Rel
𝑅 → (𝑅 ∩ (dom 𝑅 × ran 𝑅)) = 𝑅) |
| 3 | 2 | dmeqd 5872 |
. . . . 5
⊢ (Rel
𝑅 → dom (𝑅 ∩ (dom 𝑅 × ran 𝑅)) = dom 𝑅) |
| 4 | 2 | rneqd 5905 |
. . . . 5
⊢ (Rel
𝑅 → ran (𝑅 ∩ (dom 𝑅 × ran 𝑅)) = ran 𝑅) |
| 5 | 3, 4 | xpeq12d 5672 |
. . . 4
⊢ (Rel
𝑅 → (dom (𝑅 ∩ (dom 𝑅 × ran 𝑅)) × ran (𝑅 ∩ (dom 𝑅 × ran 𝑅))) = (dom 𝑅 × ran 𝑅)) |
| 6 | 5 | ineq2d 4186 |
. . 3
⊢ (Rel
𝑅 → (𝑆 ∩ (dom (𝑅 ∩ (dom 𝑅 × ran 𝑅)) × ran (𝑅 ∩ (dom 𝑅 × ran 𝑅)))) = (𝑆 ∩ (dom 𝑅 × ran 𝑅))) |
| 7 | 6 | sseq2d 3982 |
. 2
⊢ (Rel
𝑅 → ((𝑅 ∩ (dom 𝑅 × ran 𝑅)) ⊆ (𝑆 ∩ (dom (𝑅 ∩ (dom 𝑅 × ran 𝑅)) × ran (𝑅 ∩ (dom 𝑅 × ran 𝑅)))) ↔ (𝑅 ∩ (dom 𝑅 × ran 𝑅)) ⊆ (𝑆 ∩ (dom 𝑅 × ran 𝑅)))) |
| 8 | | relxp 5659 |
. . . 4
⊢ Rel (dom
𝑅 × ran 𝑅) |
| 9 | | relin2 5779 |
. . . 4
⊢ (Rel (dom
𝑅 × ran 𝑅) → Rel (𝑅 ∩ (dom 𝑅 × ran 𝑅))) |
| 10 | | relssinxpdmrn 38338 |
. . . 4
⊢ (Rel
(𝑅 ∩ (dom 𝑅 × ran 𝑅)) → ((𝑅 ∩ (dom 𝑅 × ran 𝑅)) ⊆ (𝑆 ∩ (dom (𝑅 ∩ (dom 𝑅 × ran 𝑅)) × ran (𝑅 ∩ (dom 𝑅 × ran 𝑅)))) ↔ (𝑅 ∩ (dom 𝑅 × ran 𝑅)) ⊆ 𝑆)) |
| 11 | 8, 9, 10 | mp2b 10 |
. . 3
⊢ ((𝑅 ∩ (dom 𝑅 × ran 𝑅)) ⊆ (𝑆 ∩ (dom (𝑅 ∩ (dom 𝑅 × ran 𝑅)) × ran (𝑅 ∩ (dom 𝑅 × ran 𝑅)))) ↔ (𝑅 ∩ (dom 𝑅 × ran 𝑅)) ⊆ 𝑆) |
| 12 | 2 | sseq1d 3981 |
. . 3
⊢ (Rel
𝑅 → ((𝑅 ∩ (dom 𝑅 × ran 𝑅)) ⊆ 𝑆 ↔ 𝑅 ⊆ 𝑆)) |
| 13 | 11, 12 | bitrid 283 |
. 2
⊢ (Rel
𝑅 → ((𝑅 ∩ (dom 𝑅 × ran 𝑅)) ⊆ (𝑆 ∩ (dom (𝑅 ∩ (dom 𝑅 × ran 𝑅)) × ran (𝑅 ∩ (dom 𝑅 × ran 𝑅)))) ↔ 𝑅 ⊆ 𝑆)) |
| 14 | 7, 13 | bitr3d 281 |
1
⊢ (Rel
𝑅 → ((𝑅 ∩ (dom 𝑅 × ran 𝑅)) ⊆ (𝑆 ∩ (dom 𝑅 × ran 𝑅)) ↔ 𝑅 ⊆ 𝑆)) |