---

Step * 13 5 2 of Lemma functor-curry_wf


1. A : SmallCategory
2. B : SmallCategory
3. C : SmallCategory
4. F : cat-ob(FUN(A × B;C))
5. x@0 : cat-ob(A)
6. y : cat-ob(A)
7. z : cat-ob(A)
8. f : cat-arrow(A) x@0 y
9. g : cat-arrow(A) y z
10. A@0 : cat-ob(B)
11. B@0 : cat-ob(B)
12. g1 : cat-arrow(B) A@0 B@0
⊢ (cat-comp(C) (F <x@0, A@0>) (F <z, A@0>) (F <z, B@0>) (F <x@0, A@0> <z, A@0> <cat-comp(A) x@0 y z f g, cat-id(B) A@0>)\000C (F <z, A@0> <z, B@0> <cat-id(A) z, g1>))
= (cat-comp(C) (F <x@0, A@0>) (F <x@0, B@0>) (F <z, B@0>) (F <x@0, A@0> <x@0, B@0> <cat-id(A) x@0, g1>) 
   (F <x@0, B@0> <z, B@0> <cat-comp(A) x@0 y z f g, cat-id(B) B@0>))
∈ (cat-arrow(C) (F <x@0, A@0>) (F <z, 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.  x@0  :  cat-ob(A)
6.  y  :  cat-ob(A)
7.  z  :  cat-ob(A)
8.  f  :  cat-arrow(A)  x@0  y
9.  g  :  cat-arrow(A)  y  z
10.  A@0  :  cat-ob(B)
11.  B@0  :  cat-ob(B)
12.  g1  :  cat-arrow(B)  A@0  B@0
\mvdash{}  (cat-comp(C)  (F  <x@0,  A@0>)  (F  <z,  A@0>)  (F  <z,  B@0>)  (F  <x@0,  A@0>  <z,  A@0>  <cat-comp(A)  x@0  y  z  \000Cf  g,  cat-id(B)  A@0>) 
      (F  <z,  A@0>  <z,  B@0>  <cat-id(A)  z,  g1>))
=  (cat-comp(C)  (F  <x@0,  A@0>)  (F  <x@0,  B@0>)  (F  <z,  B@0>)  (F  <x@0,  A@0>  <x@0,  B@0>  <cat-id(A)  x@0,  g\000C1>) 
      (F  <x@0,  B@0>  <z,  B@0>  <cat-comp(A)  x@0  y  z  f  g,  cat-id(B)  B@0>))


By

---

Latex:
NormCatEq  THEN  Auto

---

Home Index