---

Step * 2 1 1 1 of Lemma nth_tl-mklist


1. n : ℤ
2. 0 < n
3. ∀[f:Top]. ∀[k:ℕ].  (nth_tl(k;mklist(n - 1;f)) ~ mklist(n - 1 - k;λi.(f (i + k))))
4. f : Top
5. k : ℕ
6. 1 ≤ k
7. mklist(n;f) ~ [f 0] @ mklist(n - 1;λi.(f (1 + i)))
⊢ nth_tl(k;[f 0] @ mklist(n - 1;λi.(f (1 + i)))) ~ mklist(n - k;λi.(f (i + k)))
BY
{ (RecUnfold `nth_tl` 0 THEN AutoSplit) }

1
1. n : ℤ
2. 0 < n
3. ∀[f:Top]. ∀[k:ℕ].  (nth_tl(k;mklist(n - 1;f)) ~ mklist(n - 1 - k;λi.(f (i + k))))
4. f : Top
5. k : ℕ
6. ¬(k ≤ 0)
7. 1 ≤ k
8. mklist(n;f) ~ [f 0] @ mklist(n - 1;λi.(f (1 + i)))
⊢ nth_tl(k - 1;mklist(n - 1;λi.(f (1 + i)))) ~ mklist(n - k;λi.(f (i + k)))

---

Latex:

---

Latex:

1.  n  :  \mBbbZ{}
2.  0  <  n
3.  \mforall{}[f:Top].  \mforall{}[k:\mBbbN{}].    (nth\_tl(k;mklist(n  -  1;f))  \msim{}  mklist(n  -  1  -  k;\mlambda{}i.(f  (i  +  k))))
4.  f  :  Top
5.  k  :  \mBbbN{}
6.  1  \mleq{}  k
7.  mklist(n;f)  \msim{}  [f  0]  @  mklist(n  -  1;\mlambda{}i.(f  (1  +  i)))
\mvdash{}  nth\_tl(k;[f  0]  @  mklist(n  -  1;\mlambda{}i.(f  (1  +  i))))  \msim{}  mklist(n  -  k;\mlambda{}i.(f  (i  +  k)))


By

---

Latex:
(RecUnfold  `nth\_tl`  0  THEN  AutoSplit)

---

Home Index