---

Step * of Lemma mklist-add1-cons

∀[n:ℕ]. ∀[f:Top].  (mklist(n + 1;f) ~ [f 0 / mklist(n;λi.(f (i + 1)))])
BY
{ (InductionOnNat THEN Reduce 0 THEN Auto) }

1
1. n : ℤ
2. 0 < n
3. ∀[f:Top]. (mklist((n - 1) + 1;f) ~ [f 0 / mklist(n - 1;λi.(f (i + 1)))])
4. f : Top
⊢ mklist(n + 1;f) ~ [f 0 / mklist(n;λi.(f (i + 1)))]

---

Latex:

---

Latex:
\mforall{}[n:\mBbbN{}].  \mforall{}[f:Top].    (mklist(n  +  1;f)  \msim{}  [f  0  /  mklist(n;\mlambda{}i.(f  (i  +  1)))])


By

---

Latex:
(InductionOnNat  THEN  Reduce  0  THEN  Auto)

---

Home Index