Proof of Theorem cnvref4
Step | Hyp | Ref
| Expression |
1 | | dfrel6 36560 |
. . . . . . 7
⊢ (Rel
𝑅 ↔ (𝑅 ∩ (dom 𝑅 × ran 𝑅)) = 𝑅) |
2 | 1 | biimpi 215 |
. . . . . 6
⊢ (Rel
𝑅 → (𝑅 ∩ (dom 𝑅 × ran 𝑅)) = 𝑅) |
3 | 2 | dmeqd 5827 |
. . . . 5
⊢ (Rel
𝑅 → dom (𝑅 ∩ (dom 𝑅 × ran 𝑅)) = dom 𝑅) |
4 | 2 | rneqd 5859 |
. . . . 5
⊢ (Rel
𝑅 → ran (𝑅 ∩ (dom 𝑅 × ran 𝑅)) = ran 𝑅) |
5 | 3, 4 | xpeq12d 5631 |
. . . 4
⊢ (Rel
𝑅 → (dom (𝑅 ∩ (dom 𝑅 × ran 𝑅)) × ran (𝑅 ∩ (dom 𝑅 × ran 𝑅))) = (dom 𝑅 × ran 𝑅)) |
6 | 5 | ineq2d 4152 |
. . 3
⊢ (Rel
𝑅 → (𝑆 ∩ (dom (𝑅 ∩ (dom 𝑅 × ran 𝑅)) × ran (𝑅 ∩ (dom 𝑅 × ran 𝑅)))) = (𝑆 ∩ (dom 𝑅 × ran 𝑅))) |
7 | 6 | sseq2d 3958 |
. 2
⊢ (Rel
𝑅 → ((𝑅 ∩ (dom 𝑅 × ran 𝑅)) ⊆ (𝑆 ∩ (dom (𝑅 ∩ (dom 𝑅 × ran 𝑅)) × ran (𝑅 ∩ (dom 𝑅 × ran 𝑅)))) ↔ (𝑅 ∩ (dom 𝑅 × ran 𝑅)) ⊆ (𝑆 ∩ (dom 𝑅 × ran 𝑅)))) |
8 | | relxp 5618 |
. . . 4
⊢ Rel (dom
𝑅 × ran 𝑅) |
9 | | relin2 5735 |
. . . 4
⊢ (Rel (dom
𝑅 × ran 𝑅) → Rel (𝑅 ∩ (dom 𝑅 × ran 𝑅))) |
10 | | relssinxpdmrn 36562 |
. . . 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 3957 |
. . 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 𝑅)) ↔ 𝑅 ⊆ 𝑆)) |