---

Step * of Lemma select-nthtl

∀[n:ℕ]. ∀[L:Top List].  (L[n] ~ hd(nth_tl(n;L)))
BY
{ ((InductionOnNat THEN Reduce 0) THEN InductionOnList THEN Reduce 0 THEN Try (Trivial)) }

1
1. n : ℤ
⊢ ⊥ ~ hd([])

2
1. n : ℤ
2. 0 < n
3. ∀[L:Top List]. (L[n - 1] ~ hd(nth_tl(n - 1;L)))
⊢ ⊥ ~ hd([])

3
1. n : ℤ
2. 0 < n
3. ∀[L:Top List]. (L[n - 1] ~ hd(nth_tl(n - 1;L)))
4. u : Top
5. v : Top List
6. v[n] ~ hd(nth_tl(n;v))
⊢ [u / v][n] ~ hd(nth_tl(n;[u / v]))

---

Latex:

---

Latex:
\mforall{}[n:\mBbbN{}].  \mforall{}[L:Top  List].    (L[n]  \msim{}  hd(nth\_tl(n;L)))


By

---

Latex:
((InductionOnNat  THEN  Reduce  0)  THEN  InductionOnList  THEN  Reduce  0  THEN  Try  (Trivial))

---

Home Index