Proof of Theorem cofidf2a
| Step | Hyp | Ref
| Expression |
| 1 | | cofidvala.b |
. . . 4
⊢ 𝐵 = (Base‘𝐷) |
| 2 | | cofidvala.h |
. . . 4
⊢ 𝐻 = (Hom ‘𝐷) |
| 3 | | cofidf2a.j |
. . . 4
⊢ 𝐽 = (Hom ‘𝐸) |
| 4 | | cofidvala.f |
. . . . 5
⊢ (𝜑 → 𝐹 ∈ (𝐷 Func 𝐸)) |
| 5 | 4 | func1st2nd 48993 |
. . . 4
⊢ (𝜑 → (1st
‘𝐹)(𝐷 Func 𝐸)(2nd ‘𝐹)) |
| 6 | | cofidf2a.x |
. . . 4
⊢ (𝜑 → 𝑋 ∈ 𝐵) |
| 7 | | cofidf2a.y |
. . . 4
⊢ (𝜑 → 𝑌 ∈ 𝐵) |
| 8 | 1, 2, 3, 5, 6, 7 | funcf2 17836 |
. . 3
⊢ (𝜑 → (𝑋(2nd ‘𝐹)𝑌):(𝑋𝐻𝑌)⟶(((1st ‘𝐹)‘𝑋)𝐽((1st ‘𝐹)‘𝑌))) |
| 9 | | cofidvala.o |
. . . . . 6
⊢ (𝜑 → (𝐺 ∘func 𝐹) = 𝐼) |
| 10 | 9 | fveq2d 6869 |
. . . . 5
⊢ (𝜑 → (2nd
‘(𝐺
∘func 𝐹)) = (2nd ‘𝐼)) |
| 11 | 10 | oveqd 7411 |
. . . 4
⊢ (𝜑 → (𝑋(2nd ‘(𝐺 ∘func 𝐹))𝑌) = (𝑋(2nd ‘𝐼)𝑌)) |
| 12 | | cofidvala.g |
. . . . 5
⊢ (𝜑 → 𝐺 ∈ (𝐸 Func 𝐷)) |
| 13 | 1, 4, 12, 6, 7 | cofu2nd 17853 |
. . . 4
⊢ (𝜑 → (𝑋(2nd ‘(𝐺 ∘func 𝐹))𝑌) = ((((1st ‘𝐹)‘𝑋)(2nd ‘𝐺)((1st ‘𝐹)‘𝑌)) ∘ (𝑋(2nd ‘𝐹)𝑌))) |
| 14 | | cofidvala.i |
. . . . 5
⊢ 𝐼 =
(idfunc‘𝐷) |
| 15 | 5 | funcrcl2 48996 |
. . . . 5
⊢ (𝜑 → 𝐷 ∈ Cat) |
| 16 | 14, 1, 15, 2, 6, 7 | idfu2nd 17845 |
. . . 4
⊢ (𝜑 → (𝑋(2nd ‘𝐼)𝑌) = ( I ↾ (𝑋𝐻𝑌))) |
| 17 | 11, 13, 16 | 3eqtr3d 2773 |
. . 3
⊢ (𝜑 → ((((1st
‘𝐹)‘𝑋)(2nd ‘𝐺)((1st ‘𝐹)‘𝑌)) ∘ (𝑋(2nd ‘𝐹)𝑌)) = ( I ↾ (𝑋𝐻𝑌))) |
| 18 | | fcof1 7269 |
. . 3
⊢ (((𝑋(2nd ‘𝐹)𝑌):(𝑋𝐻𝑌)⟶(((1st ‘𝐹)‘𝑋)𝐽((1st ‘𝐹)‘𝑌)) ∧ ((((1st ‘𝐹)‘𝑋)(2nd ‘𝐺)((1st ‘𝐹)‘𝑌)) ∘ (𝑋(2nd ‘𝐹)𝑌)) = ( I ↾ (𝑋𝐻𝑌))) → (𝑋(2nd ‘𝐹)𝑌):(𝑋𝐻𝑌)–1-1→(((1st ‘𝐹)‘𝑋)𝐽((1st ‘𝐹)‘𝑌))) |
| 19 | 8, 17, 18 | syl2anc 584 |
. 2
⊢ (𝜑 → (𝑋(2nd ‘𝐹)𝑌):(𝑋𝐻𝑌)–1-1→(((1st ‘𝐹)‘𝑋)𝐽((1st ‘𝐹)‘𝑌))) |
| 20 | 14, 1, 6, 4, 12, 9 | cofid1a 49029 |
. . . . 5
⊢ (𝜑 → ((1st
‘𝐺)‘((1st ‘𝐹)‘𝑋)) = 𝑋) |
| 21 | 14, 1, 7, 4, 12, 9 | cofid1a 49029 |
. . . . 5
⊢ (𝜑 → ((1st
‘𝐺)‘((1st ‘𝐹)‘𝑌)) = 𝑌) |
| 22 | 20, 21 | oveq12d 7412 |
. . . 4
⊢ (𝜑 → (((1st
‘𝐺)‘((1st ‘𝐹)‘𝑋))𝐻((1st ‘𝐺)‘((1st ‘𝐹)‘𝑌))) = (𝑋𝐻𝑌)) |
| 23 | | eqid 2730 |
. . . . 5
⊢
(Base‘𝐸) =
(Base‘𝐸) |
| 24 | 12 | func1st2nd 48993 |
. . . . 5
⊢ (𝜑 → (1st
‘𝐺)(𝐸 Func 𝐷)(2nd ‘𝐺)) |
| 25 | 1, 23, 5 | funcf1 17834 |
. . . . . 6
⊢ (𝜑 → (1st
‘𝐹):𝐵⟶(Base‘𝐸)) |
| 26 | 25, 6 | ffvelcdmd 7064 |
. . . . 5
⊢ (𝜑 → ((1st
‘𝐹)‘𝑋) ∈ (Base‘𝐸)) |
| 27 | 25, 7 | ffvelcdmd 7064 |
. . . . 5
⊢ (𝜑 → ((1st
‘𝐹)‘𝑌) ∈ (Base‘𝐸)) |
| 28 | 23, 3, 2, 24, 26, 27 | funcf2 17836 |
. . . 4
⊢ (𝜑 → (((1st
‘𝐹)‘𝑋)(2nd ‘𝐺)((1st ‘𝐹)‘𝑌)):(((1st ‘𝐹)‘𝑋)𝐽((1st ‘𝐹)‘𝑌))⟶(((1st ‘𝐺)‘((1st
‘𝐹)‘𝑋))𝐻((1st ‘𝐺)‘((1st ‘𝐹)‘𝑌)))) |
| 29 | 22, 28 | feq3dd 6682 |
. . 3
⊢ (𝜑 → (((1st
‘𝐹)‘𝑋)(2nd ‘𝐺)((1st ‘𝐹)‘𝑌)):(((1st ‘𝐹)‘𝑋)𝐽((1st ‘𝐹)‘𝑌))⟶(𝑋𝐻𝑌)) |
| 30 | | fcofo 7270 |
. . 3
⊢
(((((1st ‘𝐹)‘𝑋)(2nd ‘𝐺)((1st ‘𝐹)‘𝑌)):(((1st ‘𝐹)‘𝑋)𝐽((1st ‘𝐹)‘𝑌))⟶(𝑋𝐻𝑌) ∧ (𝑋(2nd ‘𝐹)𝑌):(𝑋𝐻𝑌)⟶(((1st ‘𝐹)‘𝑋)𝐽((1st ‘𝐹)‘𝑌)) ∧ ((((1st ‘𝐹)‘𝑋)(2nd ‘𝐺)((1st ‘𝐹)‘𝑌)) ∘ (𝑋(2nd ‘𝐹)𝑌)) = ( I ↾ (𝑋𝐻𝑌))) → (((1st ‘𝐹)‘𝑋)(2nd ‘𝐺)((1st ‘𝐹)‘𝑌)):(((1st ‘𝐹)‘𝑋)𝐽((1st ‘𝐹)‘𝑌))–onto→(𝑋𝐻𝑌)) |
| 31 | 29, 8, 17, 30 | syl3anc 1373 |
. 2
⊢ (𝜑 → (((1st
‘𝐹)‘𝑋)(2nd ‘𝐺)((1st ‘𝐹)‘𝑌)):(((1st ‘𝐹)‘𝑋)𝐽((1st ‘𝐹)‘𝑌))–onto→(𝑋𝐻𝑌)) |
| 32 | 19, 31 | jca 511 |
1
⊢ (𝜑 → ((𝑋(2nd ‘𝐹)𝑌):(𝑋𝐻𝑌)–1-1→(((1st ‘𝐹)‘𝑋)𝐽((1st ‘𝐹)‘𝑌)) ∧ (((1st ‘𝐹)‘𝑋)(2nd ‘𝐺)((1st ‘𝐹)‘𝑌)):(((1st ‘𝐹)‘𝑋)𝐽((1st ‘𝐹)‘𝑌))–onto→(𝑋𝐻𝑌))) |