---

Step * of Lemma fact_unroll

∀[n:ℤ]. ((n)! ~ if (n =z 0) then 1 else n * (n - 1)! fi )
BY
{ ((D 0 THENA Auto)
   THEN RW (AddrC [1] UnfoldTopAbC) 0
   THEN (RWO "primrec-unroll" 0 THENA Auto)
   THEN Reduce 0
   THEN Fold `fact` 0
   THEN RepeatFor 2 (EqCD)
   THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[n:\mBbbZ{}].  ((n)!  \msim{}  if  (n  =\msubz{}  0)  then  1  else  n  *  (n  -  1)!  fi  )


By

---

Latex:
((D  0  THENA  Auto)
  THEN  RW  (AddrC  [1]  UnfoldTopAbC)  0
  THEN  (RWO  "primrec-unroll"  0  THENA  Auto)
  THEN  Reduce  0
  THEN  Fold  `fact`  0
  THEN  RepeatFor  2  (EqCD)
  THEN  Auto)

---

Home Index