Step
*
2
1
2
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)
⊢ nth_tl(k;mklist(n;f)) ~ mklist(n - k;λi.(f (i + k)))
BY
{ ((Subst' k ~ 0 0 THENA Auto) THEN RecUnfold `nth_tl` 0 THEN Reduce 0) }
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. ¬(1 ≤ k)
⊢ mklist(n;f) ~ mklist(n - 0;λi.(f (i + 0)))
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.  \mneg{}(1  \mleq{}  k)
\mvdash{}  nth\_tl(k;mklist(n;f))  \msim{}  mklist(n  -  k;\mlambda{}i.(f  (i  +  k)))
By
Latex:
((Subst'  k  \msim{}  0  0  THENA  Auto)  THEN  RecUnfold  `nth\_tl`  0  THEN  Reduce  0)
Home
Index