---

Step * of Lemma sq_stable__coPathAgree

∀[A:𝕌']. ∀[B:A ⟶ Type].  ∀n:ℕ. ∀[w:coW(A;a.B[a])]. ∀p,q:coPath(a.B[a];w;n).  SqStable(coPathAgree(a.B[a];n;w;p;q))
BY
{ (InductionOnNat
   THEN Auto
   THEN Unfold `coPathAgree` 0
   THEN AutoSplit
   THEN RepeatFor 2 ((Unfold `coPath` -2 THEN SplitOnHypITE -2  THEN Auto THEN D -3 THEN Reduce 0))
   THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[A:\mBbbU{}'].  \mforall{}[B:A  {}\mrightarrow{}  Type].
    \mforall{}n:\mBbbN{}.  \mforall{}[w:coW(A;a.B[a])].  \mforall{}p,q:coPath(a.B[a];w;n).    SqStable(coPathAgree(a.B[a];n;w;p;q))


By

---

Latex:
(InductionOnNat
  THEN  Auto
  THEN  Unfold  `coPathAgree`  0
  THEN  AutoSplit
  THEN  RepeatFor  2  ((Unfold  `coPath`  -2  THEN  SplitOnHypITE  -2    THEN  Auto  THEN  D  -3  THEN  Reduce  0))
  THEN  Auto)

---

Home Index