---

Step * of Lemma ps-sigma-unelim-elim

No Annotations
∀[C:SmallCategory]. ∀[X:ps_context{j:l}(C)]. ∀[A:{X ⊢ _}]. ∀[B:{X.A ⊢ _}].
  (SigmaElim o SigmaUnElim = 1(X.A.B) ∈ psc_map{[i | j]:l}(C; X.A.B; X.A.B))
BY
{ (Auto
   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-adjoin pscm-id sigma-elim-pscm sigma-unelim-pscm`` 0
   THEN RepUR ``pscm-comp psc-adjoin-set`` 0) }

1
1. C : SmallCategory
2. X : ps_context{j:l}(C)
3. A : {X ⊢ _}
4. B : {X.A ⊢ _}
5. I : cat-ob(C)
6. a1 : X(I)
7. a2 : A(a1)
8. x1 : B(<a1, a2>)
⊢ <<a1, a2>, x1> = <<a1, a2>, x1> ∈ (alpha:alpha:X(I) × A(alpha) × B(alpha))

---

Latex:

---

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


By

---

Latex:
(Auto
  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-adjoin  pscm-id  sigma-elim-pscm  sigma-unelim-pscm``  0
  THEN  RepUR  ``pscm-comp  psc-adjoin-set``  0)

---

Home Index