---

Step * of Lemma const-sphere-map_wf

∀[n:ℕ]. ∀[p:S(n)].  (const-sphere-map(p) ∈ sphere-map(n))
BY
{ (Auto
   THEN MemTypeCD
   THEN RepUR ``const-sphere-map`` 0
   THEN Auto
   THEN D 0 With ⌜1⌝ 
   THEN Auto
   THEN (Assert d(p;p) = r0 BY
               Auto)
   THEN RWO "-1" 0
   THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[n:\mBbbN{}].  \mforall{}[p:S(n)].    (const-sphere-map(p)  \mmember{}  sphere-map(n))


By

---

Latex:
(Auto
  THEN  MemTypeCD
  THEN  RepUR  ``const-sphere-map``  0
  THEN  Auto
  THEN  D  0  With  \mkleeneopen{}1\mkleeneclose{} 
  THEN  Auto
  THEN  (Assert  d(p;p)  =  r0  BY
                          Auto)
  THEN  RWO  "-1"  0
  THEN  Auto)

---

Home Index