---

Step * of Lemma poset_functor_extend-face-map

∀[C:SmallCategory]. ∀[I:Cname List]. ∀[L:name-morph(I;[]) ⟶ cat-ob(C)]. ∀[E:i:nameset(I)
                                                                             ⟶ c:{c:name-morph(I;[])| (c i) = 0 ∈ ℕ2} 
                                                                             ⟶ (cat-arrow(C) (L c) (L flip(c;i)))].
∀[y:nameset(I)]. ∀[a:ℕ2]. ∀[c1,c2:name-morph(I-[y];[])].
  poset_functor_extend(C;I;L;E;((y:=a) o c1);((y:=a) o c2))
  = poset_functor_extend(C;I-[y];L o (λf.((y:=a) o f));λz,f. (E z ((y:=a) o f));c1;c2)
  ∈ (cat-arrow(C) (L ((y:=a) o c1)) (L ((y:=a) o c2))) 
  supposing ∀x:nameset(I-[y]). ((c1 x) ≤ (c2 x))
BY
{ (InstLemma `poset_functor_extend-face-map1` [] THEN RepeatFor 6 (ParallelLast')) }

1
1. [C] : SmallCategory
2. [I] : Cname List
3. [L] : name-morph(I;[]) ⟶ cat-ob(C)
4. [E] : i:nameset(I) ⟶ c:{c:name-morph(I;[])| (c i) = 0 ∈ ℕ2}  ⟶ (cat-arrow(C) (L c) (L flip(c;i)))
5. [y] : nameset(I)
6. [a] : ℕ2
7. ∀[c1,c2:name-morph(I;[])].
     poset_functor_extend(C;I;L;E;((y:=a) o c1);((y:=a) o c2))
     = poset_functor_extend(C;I-[y];L o (λf.((y:=a) o f));λz,f. (E z ((y:=a) o f));c1;c2)
     ∈ (cat-arrow(C) (L ((y:=a) o c1)) (L ((y:=a) o c2))) 
     supposing ∀x:nameset(I). ((c1 x) ≤ (c2 x))
⊢ ∀[c1,c2:name-morph(I-[y];[])].
    poset_functor_extend(C;I;L;E;((y:=a) o c1);((y:=a) o c2))
    = poset_functor_extend(C;I-[y];L o (λf.((y:=a) o f));λz,f. (E z ((y:=a) o f));c1;c2)
    ∈ (cat-arrow(C) (L ((y:=a) o c1)) (L ((y:=a) o c2))) 
    supposing ∀x:nameset(I-[y]). ((c1 x) ≤ (c2 x))

---

Latex:

---

Latex:
\mforall{}[C:SmallCategory].  \mforall{}[I:Cname  List].  \mforall{}[L:name-morph(I;[])  {}\mrightarrow{}  cat-ob(C)].
\mforall{}[E:i:nameset(I)  {}\mrightarrow{}  c:\{c:name-morph(I;[])|  (c  i)  =  0\}    {}\mrightarrow{}  (cat-arrow(C)  (L  c)  (L  flip(c;i)))].
\mforall{}[y:nameset(I)].  \mforall{}[a:\mBbbN{}2].  \mforall{}[c1,c2:name-morph(I-[y];[])].
    poset\_functor\_extend(C;I;L;E;((y:=a)  o  c1);((y:=a)  o  c2))
    =  poset\_functor\_extend(C;I-[y];L  o  (\mlambda{}f.((y:=a)  o  f));\mlambda{}z,f.  (E  z  ((y:=a)  o  f));c1;c2) 
    supposing  \mforall{}x:nameset(I-[y]).  ((c1  x)  \mleq{}  (c2  x))


By

---

Latex:
(InstLemma  `poset\_functor\_extend-face-map1`  []  THEN  RepeatFor  6  (ParallelLast'))

---

Home Index