Proof of Theorem coidmid
| Step | Hyp | Ref
| Expression |
| 1 | | coss2 5842 |
. . 3
⊢ (( I
↾ (dom 𝐴 ∩ ran
𝐷)) ⊆ (𝐵 ∘ 𝐶) → (𝐴 ∘ ( I ↾ (dom 𝐴 ∩ ran 𝐷))) ⊆ (𝐴 ∘ (𝐵 ∘ 𝐶))) |
| 2 | | coss1 5841 |
. . 3
⊢ ((𝐴 ∘ ( I ↾ (dom 𝐴 ∩ ran 𝐷))) ⊆ (𝐴 ∘ (𝐵 ∘ 𝐶)) → ((𝐴 ∘ ( I ↾ (dom 𝐴 ∩ ran 𝐷))) ∘ 𝐷) ⊆ ((𝐴 ∘ (𝐵 ∘ 𝐶)) ∘ 𝐷)) |
| 3 | 1, 2 | syl 18 |
. 2
⊢ (( I
↾ (dom 𝐴 ∩ ran
𝐷)) ⊆ (𝐵 ∘ 𝐶) → ((𝐴 ∘ ( I ↾ (dom 𝐴 ∩ ran 𝐷))) ∘ 𝐷) ⊆ ((𝐴 ∘ (𝐵 ∘ 𝐶)) ∘ 𝐷)) |
| 4 | | coires1 6286 |
. . . . 5
⊢ (𝐴 ∘ ( I ↾ (dom 𝐴 ∩ ran 𝐷))) = (𝐴 ↾ (dom 𝐴 ∩ ran 𝐷)) |
| 5 | | incom 4109 |
. . . . . . 7
⊢ (dom
𝐴 ∩ ran 𝐷) = (ran 𝐷 ∩ dom 𝐴) |
| 6 | 5 | reseq2i 5981 |
. . . . . 6
⊢ (𝐴 ↾ (dom 𝐴 ∩ ran 𝐷)) = (𝐴 ↾ (ran 𝐷 ∩ dom 𝐴)) |
| 7 | | resindm 6035 |
. . . . . 6
⊢ (𝐴 ↾ (ran 𝐷 ∩ dom 𝐴)) = (𝐴 ↾ ran 𝐷) |
| 8 | 6, 7 | eqtri 2786 |
. . . . 5
⊢ (𝐴 ↾ (dom 𝐴 ∩ ran 𝐷)) = (𝐴 ↾ ran 𝐷) |
| 9 | 4, 8 | eqtri 2786 |
. . . 4
⊢ (𝐴 ∘ ( I ↾ (dom 𝐴 ∩ ran 𝐷))) = (𝐴 ↾ ran 𝐷) |
| 10 | 9 | coeq1i 5846 |
. . 3
⊢ ((𝐴 ∘ ( I ↾ (dom 𝐴 ∩ ran 𝐷))) ∘ 𝐷) = ((𝐴 ↾ ran 𝐷) ∘ 𝐷) |
| 11 | | coresrn 38197 |
. . 3
⊢ ((𝐴 ↾ ran 𝐷) ∘ 𝐷) = (𝐴 ∘ 𝐷) |
| 12 | 10, 11 | eqtri 2786 |
. 2
⊢ ((𝐴 ∘ ( I ↾ (dom 𝐴 ∩ ran 𝐷))) ∘ 𝐷) = (𝐴 ∘ 𝐷) |
| 13 | | coass 6288 |
. . . 4
⊢ ((𝐴 ∘ 𝐵) ∘ 𝐶) = (𝐴 ∘ (𝐵 ∘ 𝐶)) |
| 14 | 13 | coeq1i 5846 |
. . 3
⊢ (((𝐴 ∘ 𝐵) ∘ 𝐶) ∘ 𝐷) = ((𝐴 ∘ (𝐵 ∘ 𝐶)) ∘ 𝐷) |
| 15 | | coass 6288 |
. . 3
⊢ (((𝐴 ∘ 𝐵) ∘ 𝐶) ∘ 𝐷) = ((𝐴 ∘ 𝐵) ∘ (𝐶 ∘ 𝐷)) |
| 16 | 14, 15 | eqtr3i 2788 |
. 2
⊢ ((𝐴 ∘ (𝐵 ∘ 𝐶)) ∘ 𝐷) = ((𝐴 ∘ 𝐵) ∘ (𝐶 ∘ 𝐷)) |
| 17 | 3, 12, 16 | 3sstr3g 3965 |
1
⊢ (( I
↾ (dom 𝐴 ∩ ran
𝐷)) ⊆ (𝐵 ∘ 𝐶) → (𝐴 ∘ 𝐷) ⊆ ((𝐴 ∘ 𝐵) ∘ (𝐶 ∘ 𝐷))) |