---

Step * 1 2 1 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))
BY
{ Unfold `last` 0 }

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))]
⊢ L[||L|| - 1] ~ hd(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))


By

---

Latex:
Unfold  `last`  0

---

Home Index