---

Step * 3 2 of Lemma yoneda-embedding_wf

.....antecedent..... 
1. C : SmallCategory
2. X : cat-ob(C)
3. Y : cat-ob(C)
4. z : cat-ob(C)
5. f : cat-arrow(C) X Y
6. g : cat-arrow(C) Y z
⊢ ∀A,B:cat-ob(op-cat(C)). ∀g1:cat-arrow(op-cat(C)) A B.
    ((cat-comp(TypeCat) (ob(rep-pre-sheaf(C;X)) A) (ob(rep-pre-sheaf(C;z)) A) (ob(rep-pre-sheaf(C;z)) B) 
      (λg@0.(cat-comp(C) A X z g@0 (cat-comp(C) X Y z f g))) 
      (arrow(rep-pre-sheaf(C;z)) A B g1))
    = (cat-comp(TypeCat) (ob(rep-pre-sheaf(C;X)) A) (ob(rep-pre-sheaf(C;X)) B) (ob(rep-pre-sheaf(C;z)) B) 
       (arrow(rep-pre-sheaf(C;X)) A B g1) 
       (λg@0.(cat-comp(C) B X z g@0 (cat-comp(C) X Y z f g))))
    ∈ (cat-arrow(TypeCat) (ob(rep-pre-sheaf(C;X)) A) (ob(rep-pre-sheaf(C;z)) B)))
BY
{ ((Intros THEN (All (RWO "cat_ob_op_lemma op-cat-arrow") THENA Auto))
   THEN RepUR ``type-cat rep-pre-sheaf functor-ob functor-arrow`` 0
   THEN (FunExt THENA Auto)
   THEN RW CatNormC 0
   THEN Auto) }

---

Latex:

---

Latex:
.....antecedent..... 
1.  C  :  SmallCategory
2.  X  :  cat-ob(C)
3.  Y  :  cat-ob(C)
4.  z  :  cat-ob(C)
5.  f  :  cat-arrow(C)  X  Y
6.  g  :  cat-arrow(C)  Y  z
\mvdash{}  \mforall{}A,B:cat-ob(op-cat(C)).  \mforall{}g1:cat-arrow(op-cat(C))  A  B.
        ((cat-comp(TypeCat)  (ob(rep-pre-sheaf(C;X))  A)  (ob(rep-pre-sheaf(C;z))  A) 
            (ob(rep-pre-sheaf(C;z))  B) 
            (\mlambda{}g@0.(cat-comp(C)  A  X  z  g@0  (cat-comp(C)  X  Y  z  f  g))) 
            (arrow(rep-pre-sheaf(C;z))  A  B  g1))
        =  (cat-comp(TypeCat)  (ob(rep-pre-sheaf(C;X))  A)  (ob(rep-pre-sheaf(C;X))  B) 
              (ob(rep-pre-sheaf(C;z))  B) 
              (arrow(rep-pre-sheaf(C;X))  A  B  g1) 
              (\mlambda{}g@0.(cat-comp(C)  B  X  z  g@0  (cat-comp(C)  X  Y  z  f  g)))))


By

---

Latex:
((Intros  THEN  (All  (RWO  "cat\_ob\_op\_lemma  op-cat-arrow")  THENA  Auto))
  THEN  RepUR  ``type-cat  rep-pre-sheaf  functor-ob  functor-arrow``  0
  THEN  (FunExt  THENA  Auto)
  THEN  RW  CatNormC  0
  THEN  Auto)

---

Home Index