---

Step * of Lemma ps-sigma-unelim-p

No Annotations
∀[C:SmallCategory]. ∀[X:ps_context{j:l}(C)]. ∀[A:{X ⊢ _}]. ∀[B:{X.A ⊢ _}].
  (p o SigmaUnElim = p o p ∈ psc_map{[i | j]:l}(C; X.A.B; X))
BY
{ (Intros
   THEN BLemma `pscm-equal`
   THEN Auto
   THEN RepeatFor 2 ((FunExt THENA Auto))
   THEN RepUR ``psc-adjoin`` -1
   THEN D -1
   THEN D -2
   THEN RepUR ``psc-fst pscm-comp sigma-unelim-pscm psc-adjoin-set`` 0
   THEN Auto) }

---

Latex:

---

Latex:
No  Annotations
\mforall{}[C:SmallCategory].  \mforall{}[X:ps\_context\{j:l\}(C)].  \mforall{}[A:\{X  \mvdash{}  \_\}].  \mforall{}[B:\{X.A  \mvdash{}  \_\}].
    (p  o  SigmaUnElim  =  p  o  p)


By

---

Latex:
(Intros
  THEN  BLemma  `pscm-equal`
  THEN  Auto
  THEN  RepeatFor  2  ((FunExt  THENA  Auto))
  THEN  RepUR  ``psc-adjoin``  -1
  THEN  D  -1
  THEN  D  -2
  THEN  RepUR  ``psc-fst  pscm-comp  sigma-unelim-pscm  psc-adjoin-set``  0
  THEN  Auto)

---

Home Index