---

Step * of Lemma length-reverse

∀[L:Top]. (||rev(L)|| ~ ||L||)
BY
{ ((UnivCD THENA Auto)
   THEN Unfold `reverse` 0
   THEN (RWO "length-rev-append" 0 THENA Auto)
   THEN Reduce 0
   THEN SqEqualTopToBase
   THEN BLemma `add-zero-base`
   THEN Auto
   THEN FLemma `list-if-has-value-length` [-1]
   THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[L:Top].  (||rev(L)||  \msim{}  ||L||)


By

---

Latex:
((UnivCD  THENA  Auto)
  THEN  Unfold  `reverse`  0
  THEN  (RWO  "length-rev-append"  0  THENA  Auto)
  THEN  Reduce  0
  THEN  SqEqualTopToBase
  THEN  BLemma  `add-zero-base`
  THEN  Auto
  THEN  FLemma  `list-if-has-value-length`  [-1]
  THEN  Auto)

---

Home Index