Metamath Proof Explorer


Theorem fucoridid

Description: Horizontal composition with the identity natural transformation of the identity functor leaves a natural transformation unchanged. (Contributed by Zhi Wang, 14-Sep-2026) (Revised by Zhi Wang, 17-Sep-2026)

Ref Expression
Hypotheses fucoridid.p No typesetting found for |- ( ph -> ( 2nd ` ( <. C , C >. o.F E ) ) = P ) with typecode |-
fucoridid.q ⊢ Q = C FuncCat C
fucoridid.j ⊢ J = Id ⁡ Q
fucoridid.i ⊢ I = id func ⁡ C
fucoridid.c ⊢ φ → C ∈ Cat
fucoridid.a ⊢ φ → A ∈ G C Nat E H
Assertion fucoridid ⊢ φ → A G I P H I J ⁡ I = A

Proof

Step Hyp Ref Expression
1 fucoridid.p Could not format ( ph -> ( 2nd ` ( <. C , C >. o.F E ) ) = P ) : No typesetting found for |- ( ph -> ( 2nd ` ( <. C , C >. o.F E ) ) = P ) with typecode |-
2 fucoridid.q ⊢ Q = C FuncCat C
3 fucoridid.j ⊢ J = Id ⁡ Q
4 fucoridid.i ⊢ I = id func ⁡ C
5 fucoridid.c ⊢ φ → C ∈ Cat
6 fucoridid.a ⊢ φ → A ∈ G C Nat E H
7 4 idfucl ⊢ C ∈ Cat → I ∈ C Func C
8 5 7 syl ⊢ φ → I ∈ C Func C
9 1 3 2 6 8 fucorid2 ⊢ φ → A G I P H I J ⁡ I = A ∘ 1 st ⁡ I
10 eqid ⊢ Base C = Base C
11 4 10 5 idfu1st ⊢ φ → 1 st ⁡ I = I ↾ Base C
12 11 coeq2d ⊢ φ → A ∘ 1 st ⁡ I = A ∘ I ↾ Base C
13 eqid ⊢ C Nat E = C Nat E
14 13 10 6 natfn2 ⊢ φ → A Fn Base C
15 dffn2 ⊢ A Fn Base C ↔ A : Base C ⟶ V
16 14 15 sylib ⊢ φ → A : Base C ⟶ V
17 fcoi1 ⊢ A : Base C ⟶ V → A ∘ I ↾ Base C = A
18 16 17 syl ⊢ φ → A ∘ I ↾ Base C = A
19 9 12 18 3eqtrd ⊢ φ → A G I P H I J ⁡ I = A