---

Step * 1 1 1 of Lemma mklist-prepend1


1. f : Top
2. m : ℤ
3. ¬1 + m < 1
4. 0 < m
5. mklist(m;f) ~ [f 0] @ mklist(m - 1;λi.(f (1 + i)))
⊢ mklist(m - 1;λi.(f (1 + i))) @ [f m] ~ mklist(m;λi.(f (1 + i)))
BY
{ (UnfoldAtAddr [2] 0 THEN (RWO "primrec-unroll" 0 THENA Auto) THEN Fold `mklist` 0 THEN Reduce 0 THEN AutoSplit) }

---

Latex:

---

Latex:

1.  f  :  Top
2.  m  :  \mBbbZ{}
3.  \mneg{}1  +  m  <  1
4.  0  <  m
5.  mklist(m;f)  \msim{}  [f  0]  @  mklist(m  -  1;\mlambda{}i.(f  (1  +  i)))
\mvdash{}  mklist(m  -  1;\mlambda{}i.(f  (1  +  i)))  @  [f  m]  \msim{}  mklist(m;\mlambda{}i.(f  (1  +  i)))


By

---

Latex:
(UnfoldAtAddr  [2]  0
  THEN  (RWO  "primrec-unroll"  0  THENA  Auto)
  THEN  Fold  `mklist`  0
  THEN  Reduce  0
  THEN  AutoSplit)

---

Home Index