---

Step * 5 1 of Lemma functor-curry_wf


1. A : SmallCategory
2. B : SmallCategory
3. C : SmallCategory
4. F : cat-ob(FUN(A × B;C))
5. G : cat-ob(FUN(A × B;C))
6. T : cat-arrow(FUN(A × B;C)) F G
7. x@0 : cat-ob(A)
8. y : cat-ob(A)
9. z : cat-ob(A)
10. f : cat-arrow(A) x@0 y
11. g : cat-arrow(A) y z
12. b : cat-ob(B)
⊢ (F <x@0, b> <z, b> <cat-comp(A) x@0 y z f g, cat-id(B) b>)
= (cat-comp(C) (F <x@0, b>) (F <y, b>) (F <z, b>) (F <x@0, b> <y, b> <f, cat-id(B) b>) (F <y, b> <z, b> <g, cat-id(B) b>\000C))
∈ (cat-arrow(C) (F <x@0, b>) (F <z, b>))
BY
{ NormCatEq THEN Auto }

---

Latex:

---

Latex:

1.  A  :  SmallCategory
2.  B  :  SmallCategory
3.  C  :  SmallCategory
4.  F  :  cat-ob(FUN(A  \mtimes{}  B;C))
5.  G  :  cat-ob(FUN(A  \mtimes{}  B;C))
6.  T  :  cat-arrow(FUN(A  \mtimes{}  B;C))  F  G
7.  x@0  :  cat-ob(A)
8.  y  :  cat-ob(A)
9.  z  :  cat-ob(A)
10.  f  :  cat-arrow(A)  x@0  y
11.  g  :  cat-arrow(A)  y  z
12.  b  :  cat-ob(B)
\mvdash{}  (F  <x@0,  b>  <z,  b>  <cat-comp(A)  x@0  y  z  f  g,  cat-id(B)  b>)
=  (cat-comp(C)  (F  <x@0,  b>)  (F  <y,  b>)  (F  <z,  b>)  (F  <x@0,  b>  <y,  b>  <f,  cat-id(B)  b>)  (F  <y,  b>  <z,\000C  b>  <g,  cat-id(B)  b>))


By

---

Latex:
NormCatEq  THEN  Auto

---

Home Index