Step
*
of Lemma
select-reverse
∀[T:Type]. ∀[L:T List]. ∀[i:ℕ||rev(L)||].  (rev(L)[i] = L[||L|| - 1 - i] ∈ T)
BY
{ (Auto
   THEN Unfold `reverse` 0
   THEN (RWO "length-reverse" (-1) THENA Auto)
   THEN (RWO "select-rev-append" 0 THENA Auto)
   THEN AutoSplit) }
Latex:
Latex:
\mforall{}[T:Type].  \mforall{}[L:T  List].  \mforall{}[i:\mBbbN{}||rev(L)||].    (rev(L)[i]  =  L[||L||  -  1  -  i])
By
Latex:
(Auto
  THEN  Unfold  `reverse`  0
  THEN  (RWO  "length-reverse"  (-1)  THENA  Auto)
  THEN  (RWO  "select-rev-append"  0  THENA  Auto)
  THEN  AutoSplit)
Home
Index