---

Step * of Lemma fun_exp_unroll

∀[n:ℕ]. ∀[f:Top].  (f^n ~ if (n =z 0) then λx.x else f o f^n - 1 fi )
BY
{ ((Unfold `fun_exp` 0 THEN Auto)
   THEN (RW (AddrC [1] (LemmaC `primrec-unroll`)) 0 THENA Auto)
   THEN Reduce 0
   THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[n:\mBbbN{}].  \mforall{}[f:Top].    (f\^{}n  \msim{}  if  (n  =\msubz{}  0)  then  \mlambda{}x.x  else  f  o  f\^{}n  -  1  fi  )


By

---

Latex:
((Unfold  `fun\_exp`  0  THEN  Auto)
  THEN  (RW  (AddrC  [1]  (LemmaC  `primrec-unroll`))  0  THENA  Auto)
  THEN  Reduce  0
  THEN  Auto)

---

Home Index