---

Step * of Lemma poset-id-functor

∀[I:Cname List]. (poset-functor(I;I;1) = 1 ∈ Functor(poset-cat(I);poset-cat(I)))
BY
{ (Auto THEN BLemma `equal-functors` THEN Auto THEN RepUR ``poset-cat poset-functor id_functor`` 0 THEN Auto) }

1
1. I : Cname List
2. x : cat-ob(poset-cat(I))
3. y : cat-ob(poset-cat(I))
4. f : cat-arrow(poset-cat(I)) x y
⊢ (λx.Ax) = f ∈ (∀x@0:nameset(I). (↑(1 o x) x@0 ≤z (1 o y) x@0))

---

Latex:

---

Latex:
\mforall{}[I:Cname  List].  (poset-functor(I;I;1)  =  1)


By

---

Latex:
(Auto
  THEN  BLemma  `equal-functors`
  THEN  Auto
  THEN  RepUR  ``poset-cat  poset-functor  id\_functor``  0
  THEN  Auto)

---

Home Index