---

Step * of Lemma cubical-universe-at-equal

No Annotations
∀[X:j⊢]. ∀[I:fset(ℕ)]. ∀[a:X(I)]. ∀[x,y:c𝕌(a)].
  x = y ∈ c𝕌(a) 
  supposing ((fst(x)) = (fst(y)) ∈ {formal-cube(I) ⊢ _}) ∧ ((snd(x)) = (snd(y)) ∈ formal-cube(I) ⊢ CompOp(fst(x)))
BY
{ (RepeatFor 3 (Intro)
   THEN (RWO "cubical-universe-at" 0 THENA Auto)
   THEN RepeatFor 2 (Intro)
   THEN D 0
   THEN DVar `x'
   THEN DVar `y'
   THEN All Reduce
   THEN Try (EqCD)
   THEN Auto) }

---

Latex:

---

Latex:
No  Annotations
\mforall{}[X:j\mvdash{}].  \mforall{}[I:fset(\mBbbN{})].  \mforall{}[a:X(I)].  \mforall{}[x,y:c\mBbbU{}(a)].
    x  =  y  supposing  ((fst(x))  =  (fst(y)))  \mwedge{}  ((snd(x))  =  (snd(y)))


By

---

Latex:
(RepeatFor  3  (Intro)
  THEN  (RWO  "cubical-universe-at"  0  THENA  Auto)
  THEN  RepeatFor  2  (Intro)
  THEN  D  0
  THEN  DVar  `x'
  THEN  DVar  `y'
  THEN  All  Reduce
  THEN  Try  (EqCD)
  THEN  Auto)

---

Home Index