---

Step * 2 2 2 1 2 of Lemma poset-functors-equal

.....subterm..... T:t
2:n
1. C : SmallCategory
2. I : Cname List
3. F : Functor(poset-cat(I);C)
4. G : Functor(poset-cat(I);C)
5. ∀f:name-morph(I;[]). ((ob(F) f) = (ob(G) f) ∈ cat-ob(C))
6. x : nameset(I)
7. f : {f:name-morph(I;[])| (f x) = 0 ∈ ℕ2} 
⊢ (arrow(F) f flip(f;x) (λx.Ax)) = (arrow(G) f flip(f;x) (λx.Ax)) ∈ (cat-arrow(C) (ob(F) f) (ob(F) flip(f;x))) ∈ ℙ
BY
{ (D -1
   THEN (Assert λx.Ax ∈ cat-arrow(poset-cat(I)) f flip(f;x) BY
               (BLemma `member-poset-cat-arrow` THEN Try ((BLemma `poset-cat-arrow-flip` THEN Auto)) THEN Auto))
   THEN Auto) }

---

Latex:

---

Latex:
.....subterm.....  T:t
2:n
1.  C  :  SmallCategory
2.  I  :  Cname  List
3.  F  :  Functor(poset-cat(I);C)
4.  G  :  Functor(poset-cat(I);C)
5.  \mforall{}f:name-morph(I;[]).  ((ob(F)  f)  =  (ob(G)  f))
6.  x  :  nameset(I)
7.  f  :  \{f:name-morph(I;[])|  (f  x)  =  0\} 
\mvdash{}  (arrow(F)  f  flip(f;x)  (\mlambda{}x.Ax))  =  (arrow(G)  f  flip(f;x)  (\mlambda{}x.Ax))  \mmember{}  \mBbbP{}


By

---

Latex:
(D  -1
  THEN  (Assert  \mlambda{}x.Ax  \mmember{}  cat-arrow(poset-cat(I))  f  flip(f;x)  BY
                          (BLemma  `member-poset-cat-arrow`
                            THEN  Try  ((BLemma  `poset-cat-arrow-flip`  THEN  Auto))
                            THEN  Auto))
  THEN  Auto)

---

Home Index