---

Step * 13 7 2 of Lemma functor-curry_wf


1. A : SmallCategory
2. B : SmallCategory
3. C : SmallCategory
4. F : cat-ob(FUN(A × B;C))
5. a : cat-ob(A)
6. A@0 : cat-ob(B)
7. B@0 : cat-ob(B)
8. g : cat-arrow(B) A@0 B@0
⊢ (cat-comp(C) (F <a, A@0>) (F <a, A@0>) (F <a, B@0>) (cat-id(C) (F <a, A@0>)) (F <a, A@0> <a, B@0> <cat-id(A) a, g>))
= (cat-comp(C) (F <a, A@0>) (F <a, B@0>) (F <a, B@0>) (F <a, A@0> <a, B@0> <cat-id(A) a, g>) (cat-id(C) (F <a, B@0>)))
∈ (cat-arrow(C) (F <a, A@0>) (F <a, B@0>))
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.  a  :  cat-ob(A)
6.  A@0  :  cat-ob(B)
7.  B@0  :  cat-ob(B)
8.  g  :  cat-arrow(B)  A@0  B@0
\mvdash{}  (cat-comp(C)  (F  <a,  A@0>)  (F  <a,  A@0>)  (F  <a,  B@0>)  (cat-id(C)  (F  <a,  A@0>))  (F  <a,  A@0>  <a,  B@0>  \000C<cat-id(A)  a,  g>))
=  (cat-comp(C)  (F  <a,  A@0>)  (F  <a,  B@0>)  (F  <a,  B@0>)  (F  <a,  A@0>  <a,  B@0>  <cat-id(A)  a,  g>)  (cat-id\000C(C)  (F  <a,  B@0>)))


By

---

Latex:
NormCatEq  THEN  Auto

---

Home Index