---

Step * of Lemma iroot-zero

∀[n:ℕ+]. (iroot(n;0) ~ 0)
BY
{ (Auto
   THEN RW  (AddrC [2] (TagC (mk_tag_term 3))) 0
   THEN (CallByValueReduce 0 THENA Auto)
   THEN RW  (AddrC [2] (TagC (mk_tag_term 6))) 0
   THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[n:\mBbbN{}\msupplus{}].  (iroot(n;0)  \msim{}  0)


By

---

Latex:
(Auto
  THEN  RW    (AddrC  [2]  (TagC  (mk\_tag\_term  3)))  0
  THEN  (CallByValueReduce  0  THENA  Auto)
  THEN  RW    (AddrC  [2]  (TagC  (mk\_tag\_term  6)))  0
  THEN  Auto)

---

Home Index