---

Step * of Lemma reverse-append

∀[T:Type]. ∀[as,bs:T List].  (rev(as @ bs) ~ rev(bs) @ rev(as))
BY
{ ((Auto THEN Unfold `reverse` 0)
   THEN (RWO "rev-append-append" 0 THENA Auto)
   THEN (RWO "rev-append-property" 0 THENA Auto)
   THEN RWO "append_assoc" 0
   THEN Auto
   THEN (RWO "append-nil" 0 THENA Auto)
   THEN Reduce 0
   THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[T:Type].  \mforall{}[as,bs:T  List].    (rev(as  @  bs)  \msim{}  rev(bs)  @  rev(as))


By

---

Latex:
((Auto  THEN  Unfold  `reverse`  0)
  THEN  (RWO  "rev-append-append"  0  THENA  Auto)
  THEN  (RWO  "rev-append-property"  0  THENA  Auto)
  THEN  RWO  "append\_assoc"  0
  THEN  Auto
  THEN  (RWO  "append-nil"  0  THENA  Auto)
  THEN  Reduce  0
  THEN  Auto)

---

Home Index