---

Step * of Lemma rev-map-append-sq

∀[A,B:Type].
  ∀[f:A ⟶ B]. ∀[as:A List]. ∀[bs:B List].  (rev-map-append(f;as;bs) ~ rev(map(f;as)) @ bs) supposing value-type(B)
BY
{ (InductionOnList
   THEN RecUnfold `rev-map-append` 0
   THEN Reduce 0
   THEN Auto
   THEN (CallByValueReduce 0⋅ THENA Auto)
   THEN (RWO "-2" 0 THENA Auto)
   THEN RWO "append_assoc" 0
   THEN Auto
   THEN Reduce 0
   THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[A,B:Type].
    \mforall{}[f:A  {}\mrightarrow{}  B].  \mforall{}[as:A  List].  \mforall{}[bs:B  List].    (rev-map-append(f;as;bs)  \msim{}  rev(map(f;as))  @  bs) 
    supposing  value-type(B)


By

---

Latex:
(InductionOnList
  THEN  RecUnfold  `rev-map-append`  0
  THEN  Reduce  0
  THEN  Auto
  THEN  (CallByValueReduce  0\mcdot{}  THENA  Auto)
  THEN  (RWO  "-2"  0  THENA  Auto)
  THEN  RWO  "append\_assoc"  0
  THEN  Auto
  THEN  Reduce  0
  THEN  Auto)

---

Home Index