---

Step * 1 2 1 1 1 of Lemma last-lemma-sq


1. T : Type
2. L : T List
3. ¬↑null(L)
4. ||L|| > 0
5. nth_tl(||L|| - 1;L) ~ [hd(nth_tl(||L|| - 1;L)) / tl(nth_tl(||L|| - 1;L))]
⊢ [last(L)] ~ [hd(nth_tl(||L|| - 1;L)) / tl(nth_tl(||L|| - 1;L))]
BY
{ EqCD }

1
1. T : Type
2. L : T List
3. ¬↑null(L)
4. ||L|| > 0
5. nth_tl(||L|| - 1;L) ~ [hd(nth_tl(||L|| - 1;L)) / tl(nth_tl(||L|| - 1;L))]
⊢ last(L) ~ hd(nth_tl(||L|| - 1;L))

2
1. T : Type
2. L : T List
3. ¬↑null(L)
4. ||L|| > 0
5. nth_tl(||L|| - 1;L) ~ [hd(nth_tl(||L|| - 1;L)) / tl(nth_tl(||L|| - 1;L))]
⊢ [] ~ tl(nth_tl(||L|| - 1;L))

---

Latex:

---

Latex:

1.  T  :  Type
2.  L  :  T  List
3.  \mneg{}\muparrow{}null(L)
4.  ||L||  >  0
5.  nth\_tl(||L||  -  1;L)  \msim{}  [hd(nth\_tl(||L||  -  1;L))  /  tl(nth\_tl(||L||  -  1;L))]
\mvdash{}  [last(L)]  \msim{}  [hd(nth\_tl(||L||  -  1;L))  /  tl(nth\_tl(||L||  -  1;L))]


By

---

Latex:
EqCD

---

Home Index