---

Step * 2 1 3 2 2 of Lemma tl-lastn


1. u : Top
2. v : Top List
3. ∀[n:ℤ]. (tl(lastn(n;v)) ~ if n <z ||v|| then lastn(n - 1;v) else lastn(n;tl(v)) fi )
4. n : ℤ
5. 0 < (||v|| + 1) - n
6. n < ||v|| + 1
7. 0 < (||v|| + 1) - n - 1
8. tl(lastn(n;v)) ~ if n <z ||v|| then lastn(n - 1;v) else lastn(n;tl(v)) fi 
9. ||v|| ≤ n
⊢ nth_tl(1;v) ~ nth_tl(||tl(v)|| - n;tl(v))
BY
{ (RecUnfold `nth_tl` 0 THEN Reduce 0 THEN (SplitOnConclITE THENA Auto) THEN Try (Trivial)) }

1
.....falsecase..... 
1. u : Top
2. v : Top List
3. ∀[n:ℤ]. (tl(lastn(n;v)) ~ if n <z ||v|| then lastn(n - 1;v) else lastn(n;tl(v)) fi )
4. n : ℤ
5. 0 < (||v|| + 1) - n
6. n < ||v|| + 1
7. 0 < (||v|| + 1) - n - 1
8. tl(lastn(n;v)) ~ if n <z ||v|| then lastn(n - 1;v) else lastn(n;tl(v)) fi 
9. ||v|| ≤ n
10. 0 < ||tl(v)|| - n
⊢ tl(v) ~ nth_tl(||tl(v)|| - n - 1;tl(tl(v)))

---

Latex:

---

Latex:

1.  u  :  Top
2.  v  :  Top  List
3.  \mforall{}[n:\mBbbZ{}].  (tl(lastn(n;v))  \msim{}  if  n  <z  ||v||  then  lastn(n  -  1;v)  else  lastn(n;tl(v))  fi  )
4.  n  :  \mBbbZ{}
5.  0  <  (||v||  +  1)  -  n
6.  n  <  ||v||  +  1
7.  0  <  (||v||  +  1)  -  n  -  1
8.  tl(lastn(n;v))  \msim{}  if  n  <z  ||v||  then  lastn(n  -  1;v)  else  lastn(n;tl(v))  fi 
9.  ||v||  \mleq{}  n
\mvdash{}  nth\_tl(1;v)  \msim{}  nth\_tl(||tl(v)||  -  n;tl(v))


By

---

Latex:
(RecUnfold  `nth\_tl`  0  THEN  Reduce  0  THEN  (SplitOnConclITE  THENA  Auto)  THEN  Try  (Trivial))

---

Home Index