Proof of Theorem fucoisfunc
| Step | Hyp | Ref
| Expression |
| 1 | | fucoisfunc.w |
. . . . 5
⊢ 𝑊 = ((𝐷 Func 𝐸) × (𝐶 Func 𝐷)) |
| 2 | | fucoisfunc.t |
. . . . . 6
⊢ 𝑇 = ((𝐷 FuncCat 𝐸) ×c (𝐶 FuncCat 𝐷)) |
| 3 | 2 | xpcfucbas 50465 |
. . . . 5
⊢ ((𝐷 Func 𝐸) × (𝐶 Func 𝐷)) = (Base‘𝑇) |
| 4 | 1, 3 | eqtri 2783 |
. . . 4
⊢ 𝑊 = (Base‘𝑇) |
| 5 | | fucoisfunc.q |
. . . . 5
⊢ 𝑄 = (𝐶 FuncCat 𝐸) |
| 6 | 5 | fucbas 18140 |
. . . 4
⊢ (𝐶 Func 𝐸) = (Base‘𝑄) |
| 7 | | fucoisfunc.h |
. . . 4
⊢ 𝐻 = (Hom ‘𝑇) |
| 8 | | eqid 2760 |
. . . . 5
⊢ (𝐶 Nat 𝐸) = (𝐶 Nat 𝐸) |
| 9 | 5, 8 | fuchom 18141 |
. . . 4
⊢ (𝐶 Nat 𝐸) = (Hom ‘𝑄) |
| 10 | | fucoisfunc.i |
. . . 4
⊢ 𝐼 = (Id‘𝑇) |
| 11 | | fucoisfunc.j |
. . . 4
⊢ 𝐽 = (Id‘𝑄) |
| 12 | | fucoisfunc.x |
. . . 4
⊢ · =
(comp‘𝑇) |
| 13 | | fucoisfunc.y |
. . . 4
⊢ ⚬ =
(comp‘𝑄) |
| 14 | | eqid 2760 |
. . . . . 6
⊢ (𝐷 FuncCat 𝐸) = (𝐷 FuncCat 𝐸) |
| 15 | | fucoisfunc.d |
. . . . . 6
⊢ (𝜑 → 𝐷 ∈ Cat) |
| 16 | | fucoisfunc.e |
. . . . . 6
⊢ (𝜑 → 𝐸 ∈ Cat) |
| 17 | 14, 15, 16 | fuccat 18150 |
. . . . 5
⊢ (𝜑 → (𝐷 FuncCat 𝐸) ∈ Cat) |
| 18 | | eqid 2760 |
. . . . . 6
⊢ (𝐶 FuncCat 𝐷) = (𝐶 FuncCat 𝐷) |
| 19 | | fucoisfunc.c |
. . . . . 6
⊢ (𝜑 → 𝐶 ∈ Cat) |
| 20 | 18, 19, 15 | fuccat 18150 |
. . . . 5
⊢ (𝜑 → (𝐶 FuncCat 𝐷) ∈ Cat) |
| 21 | 2, 17, 20 | xpccat 18366 |
. . . 4
⊢ (𝜑 → 𝑇 ∈ Cat) |
| 22 | 5, 19, 16 | fuccat 18150 |
. . . 4
⊢ (𝜑 → 𝑄 ∈ Cat) |
| 23 | 4, 6, 7, 9, 10, 11, 12, 13, 21, 22 | isfunc 18041 |
. . 3
⊢ (𝜑 → (𝑂(𝑇 Func 𝑄)𝑃 ↔ (𝑂:𝑊⟶(𝐶 Func 𝐸) ∧ 𝑃 ∈ X𝑧 ∈ (𝑊 × 𝑊)(((𝑂‘(1st ‘𝑧))(𝐶 Nat 𝐸)(𝑂‘(2nd ‘𝑧))) ↑m (𝐻‘𝑧)) ∧ ∀𝑥 ∈ 𝑊 (((𝑥𝑃𝑥)‘(𝐼‘𝑥)) = (𝐽‘(𝑂‘𝑥)) ∧ ∀𝑦 ∈ 𝑊 ∀𝑧 ∈ 𝑊 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝑃𝑧)‘(𝑛(〈𝑥, 𝑦〉 · 𝑧)𝑚)) = (((𝑦𝑃𝑧)‘𝑛)(〈(𝑂‘𝑥), (𝑂‘𝑦)〉 ⚬ (𝑂‘𝑧))((𝑥𝑃𝑦)‘𝑚)))))) |
| 24 | | rescofuf 50299 |
. . . . 5
⊢ (
∘func ↾ ((𝐷 Func 𝐸) × (𝐶 Func 𝐷))):((𝐷 Func 𝐸) × (𝐶 Func 𝐷))⟶(𝐶 Func 𝐸) |
| 25 | | fucoisfunc.o |
. . . . . . 7
⊢ 𝑂 = (
∘func ↾ 𝑊) |
| 26 | 1 | reseq2i 5966 |
. . . . . . 7
⊢ (
∘func ↾ 𝑊) = ( ∘func ↾
((𝐷 Func 𝐸) × (𝐶 Func 𝐷))) |
| 27 | 25, 26 | eqtri 2783 |
. . . . . 6
⊢ 𝑂 = (
∘func ↾ ((𝐷 Func 𝐸) × (𝐶 Func 𝐷))) |
| 28 | 27, 1 | feq12i 6702 |
. . . . 5
⊢ (𝑂:𝑊⟶(𝐶 Func 𝐸) ↔ ( ∘func
↾ ((𝐷 Func 𝐸) × (𝐶 Func 𝐷))):((𝐷 Func 𝐸) × (𝐶 Func 𝐷))⟶(𝐶 Func 𝐸)) |
| 29 | 24, 28 | mpbir 234 |
. . . 4
⊢ 𝑂:𝑊⟶(𝐶 Func 𝐸) |
| 30 | | 3anass 1111 |
. . . 4
⊢ ((𝑂:𝑊⟶(𝐶 Func 𝐸) ∧ 𝑃 ∈ X𝑧 ∈ (𝑊 × 𝑊)(((𝑂‘(1st ‘𝑧))(𝐶 Nat 𝐸)(𝑂‘(2nd ‘𝑧))) ↑m (𝐻‘𝑧)) ∧ ∀𝑥 ∈ 𝑊 (((𝑥𝑃𝑥)‘(𝐼‘𝑥)) = (𝐽‘(𝑂‘𝑥)) ∧ ∀𝑦 ∈ 𝑊 ∀𝑧 ∈ 𝑊 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝑃𝑧)‘(𝑛(〈𝑥, 𝑦〉 · 𝑧)𝑚)) = (((𝑦𝑃𝑧)‘𝑛)(〈(𝑂‘𝑥), (𝑂‘𝑦)〉 ⚬ (𝑂‘𝑧))((𝑥𝑃𝑦)‘𝑚)))) ↔ (𝑂:𝑊⟶(𝐶 Func 𝐸) ∧ (𝑃 ∈ X𝑧 ∈ (𝑊 × 𝑊)(((𝑂‘(1st ‘𝑧))(𝐶 Nat 𝐸)(𝑂‘(2nd ‘𝑧))) ↑m (𝐻‘𝑧)) ∧ ∀𝑥 ∈ 𝑊 (((𝑥𝑃𝑥)‘(𝐼‘𝑥)) = (𝐽‘(𝑂‘𝑥)) ∧ ∀𝑦 ∈ 𝑊 ∀𝑧 ∈ 𝑊 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝑃𝑧)‘(𝑛(〈𝑥, 𝑦〉 · 𝑧)𝑚)) = (((𝑦𝑃𝑧)‘𝑛)(〈(𝑂‘𝑥), (𝑂‘𝑦)〉 ⚬ (𝑂‘𝑧))((𝑥𝑃𝑦)‘𝑚)))))) |
| 31 | 29, 30 | mpbiran 722 |
. . 3
⊢ ((𝑂:𝑊⟶(𝐶 Func 𝐸) ∧ 𝑃 ∈ X𝑧 ∈ (𝑊 × 𝑊)(((𝑂‘(1st ‘𝑧))(𝐶 Nat 𝐸)(𝑂‘(2nd ‘𝑧))) ↑m (𝐻‘𝑧)) ∧ ∀𝑥 ∈ 𝑊 (((𝑥𝑃𝑥)‘(𝐼‘𝑥)) = (𝐽‘(𝑂‘𝑥)) ∧ ∀𝑦 ∈ 𝑊 ∀𝑧 ∈ 𝑊 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝑃𝑧)‘(𝑛(〈𝑥, 𝑦〉 · 𝑧)𝑚)) = (((𝑦𝑃𝑧)‘𝑛)(〈(𝑂‘𝑥), (𝑂‘𝑦)〉 ⚬ (𝑂‘𝑧))((𝑥𝑃𝑦)‘𝑚)))) ↔ (𝑃 ∈ X𝑧 ∈ (𝑊 × 𝑊)(((𝑂‘(1st ‘𝑧))(𝐶 Nat 𝐸)(𝑂‘(2nd ‘𝑧))) ↑m (𝐻‘𝑧)) ∧ ∀𝑥 ∈ 𝑊 (((𝑥𝑃𝑥)‘(𝐼‘𝑥)) = (𝐽‘(𝑂‘𝑥)) ∧ ∀𝑦 ∈ 𝑊 ∀𝑧 ∈ 𝑊 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝑃𝑧)‘(𝑛(〈𝑥, 𝑦〉 · 𝑧)𝑚)) = (((𝑦𝑃𝑧)‘𝑛)(〈(𝑂‘𝑥), (𝑂‘𝑦)〉 ⚬ (𝑂‘𝑧))((𝑥𝑃𝑦)‘𝑚))))) |
| 32 | 23, 31 | bitrdi 290 |
. 2
⊢ (𝜑 → (𝑂(𝑇 Func 𝑄)𝑃 ↔ (𝑃 ∈ X𝑧 ∈ (𝑊 × 𝑊)(((𝑂‘(1st ‘𝑧))(𝐶 Nat 𝐸)(𝑂‘(2nd ‘𝑧))) ↑m (𝐻‘𝑧)) ∧ ∀𝑥 ∈ 𝑊 (((𝑥𝑃𝑥)‘(𝐼‘𝑥)) = (𝐽‘(𝑂‘𝑥)) ∧ ∀𝑦 ∈ 𝑊 ∀𝑧 ∈ 𝑊 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝑃𝑧)‘(𝑛(〈𝑥, 𝑦〉 · 𝑧)𝑚)) = (((𝑦𝑃𝑧)‘𝑛)(〈(𝑂‘𝑥), (𝑂‘𝑦)〉 ⚬ (𝑂‘𝑧))((𝑥𝑃𝑦)‘𝑚)))))) |
| 33 | 2 | fveq2i 6888 |
. . . . 5
⊢ (Hom
‘𝑇) = (Hom
‘((𝐷 FuncCat 𝐸) ×c
(𝐶 FuncCat 𝐷))) |
| 34 | 7, 33 | eqtri 2783 |
. . . 4
⊢ 𝐻 = (Hom ‘((𝐷 FuncCat 𝐸) ×c (𝐶 FuncCat 𝐷))) |
| 35 | 1, 34 | fucofulem2 50524 |
. . 3
⊢ (𝑃 ∈ X𝑧 ∈
(𝑊 × 𝑊)(((𝑂‘(1st ‘𝑧))(𝐶 Nat 𝐸)(𝑂‘(2nd ‘𝑧))) ↑m (𝐻‘𝑧)) ↔ (𝑃 = (𝑢 ∈ 𝑊, 𝑣 ∈ 𝑊 ↦ (𝑢𝑃𝑣)) ∧ ∀𝑚 ∈ 𝑊 ∀𝑛 ∈ 𝑊 ((𝑚𝑃𝑛) = (𝑏 ∈ ((1st ‘𝑚)(𝐷 Nat 𝐸)(1st ‘𝑛)), 𝑎 ∈ ((2nd ‘𝑚)(𝐶 Nat 𝐷)(2nd ‘𝑛)) ↦ (𝑏(𝑚𝑃𝑛)𝑎)) ∧ ∀𝑝 ∈ ((1st ‘𝑚)(𝐷 Nat 𝐸)(1st ‘𝑛))∀𝑞 ∈ ((2nd ‘𝑚)(𝐶 Nat 𝐷)(2nd ‘𝑛))(𝑝(𝑚𝑃𝑛)𝑞) ∈ ((𝑂‘𝑚)(𝐶 Nat 𝐸)(𝑂‘𝑛))))) |
| 36 | 35 | anbi1i 636 |
. 2
⊢ ((𝑃 ∈ X𝑧 ∈
(𝑊 × 𝑊)(((𝑂‘(1st ‘𝑧))(𝐶 Nat 𝐸)(𝑂‘(2nd ‘𝑧))) ↑m (𝐻‘𝑧)) ∧ ∀𝑥 ∈ 𝑊 (((𝑥𝑃𝑥)‘(𝐼‘𝑥)) = (𝐽‘(𝑂‘𝑥)) ∧ ∀𝑦 ∈ 𝑊 ∀𝑧 ∈ 𝑊 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝑃𝑧)‘(𝑛(〈𝑥, 𝑦〉 · 𝑧)𝑚)) = (((𝑦𝑃𝑧)‘𝑛)(〈(𝑂‘𝑥), (𝑂‘𝑦)〉 ⚬ (𝑂‘𝑧))((𝑥𝑃𝑦)‘𝑚)))) ↔ ((𝑃 = (𝑢 ∈ 𝑊, 𝑣 ∈ 𝑊 ↦ (𝑢𝑃𝑣)) ∧ ∀𝑚 ∈ 𝑊 ∀𝑛 ∈ 𝑊 ((𝑚𝑃𝑛) = (𝑏 ∈ ((1st ‘𝑚)(𝐷 Nat 𝐸)(1st ‘𝑛)), 𝑎 ∈ ((2nd ‘𝑚)(𝐶 Nat 𝐷)(2nd ‘𝑛)) ↦ (𝑏(𝑚𝑃𝑛)𝑎)) ∧ ∀𝑝 ∈ ((1st ‘𝑚)(𝐷 Nat 𝐸)(1st ‘𝑛))∀𝑞 ∈ ((2nd ‘𝑚)(𝐶 Nat 𝐷)(2nd ‘𝑛))(𝑝(𝑚𝑃𝑛)𝑞) ∈ ((𝑂‘𝑚)(𝐶 Nat 𝐸)(𝑂‘𝑛)))) ∧ ∀𝑥 ∈ 𝑊 (((𝑥𝑃𝑥)‘(𝐼‘𝑥)) = (𝐽‘(𝑂‘𝑥)) ∧ ∀𝑦 ∈ 𝑊 ∀𝑧 ∈ 𝑊 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝑃𝑧)‘(𝑛(〈𝑥, 𝑦〉 · 𝑧)𝑚)) = (((𝑦𝑃𝑧)‘𝑛)(〈(𝑂‘𝑥), (𝑂‘𝑦)〉 ⚬ (𝑂‘𝑧))((𝑥𝑃𝑦)‘𝑚))))) |
| 37 | 32, 36 | bitrdi 290 |
1
⊢ (𝜑 → (𝑂(𝑇 Func 𝑄)𝑃 ↔ ((𝑃 = (𝑢 ∈ 𝑊, 𝑣 ∈ 𝑊 ↦ (𝑢𝑃𝑣)) ∧ ∀𝑚 ∈ 𝑊 ∀𝑛 ∈ 𝑊 ((𝑚𝑃𝑛) = (𝑏 ∈ ((1st ‘𝑚)(𝐷 Nat 𝐸)(1st ‘𝑛)), 𝑎 ∈ ((2nd ‘𝑚)(𝐶 Nat 𝐷)(2nd ‘𝑛)) ↦ (𝑏(𝑚𝑃𝑛)𝑎)) ∧ ∀𝑝 ∈ ((1st ‘𝑚)(𝐷 Nat 𝐸)(1st ‘𝑛))∀𝑞 ∈ ((2nd ‘𝑚)(𝐶 Nat 𝐷)(2nd ‘𝑛))(𝑝(𝑚𝑃𝑛)𝑞) ∈ ((𝑂‘𝑚)(𝐶 Nat 𝐸)(𝑂‘𝑛)))) ∧ ∀𝑥 ∈ 𝑊 (((𝑥𝑃𝑥)‘(𝐼‘𝑥)) = (𝐽‘(𝑂‘𝑥)) ∧ ∀𝑦 ∈ 𝑊 ∀𝑧 ∈ 𝑊 ∀𝑚 ∈ (𝑥𝐻𝑦)∀𝑛 ∈ (𝑦𝐻𝑧)((𝑥𝑃𝑧)‘(𝑛(〈𝑥, 𝑦〉 · 𝑧)𝑚)) = (((𝑦𝑃𝑧)‘𝑛)(〈(𝑂‘𝑥), (𝑂‘𝑦)〉 ⚬ (𝑂‘𝑧))((𝑥𝑃𝑦)‘𝑚)))))) |