---

Step * 2 1 1 1 1 of Lemma eager-map-append-sq


1. T : Type
2. value-type(T)
3. A : Type
4. f : A ⟶ T
5. u : A
6. v : A List
7. ∀[bs:T List]. (eager-map-append(f;v;bs) ~ map(f;rev(v)) @ bs)
8. bs : T List
⊢ map(f;rev(v)) @ [f u / bs] ~ (map(f;rev(v)) @ map(f;[u])) @ bs
BY
{ (Reduce 0 THEN (RWO "append_assoc_sq" 0 THENA Auto)) }

1
1. T : Type
2. value-type(T)
3. A : Type
4. f : A ⟶ T
5. u : A
6. v : A List
7. ∀[bs:T List]. (eager-map-append(f;v;bs) ~ map(f;rev(v)) @ bs)
8. bs : T List
⊢ map(f;rev(v)) @ [f u / bs] ~ map(f;rev(v)) @ [f u] @ bs

---

Latex:

---

Latex:

1.  T  :  Type
2.  value-type(T)
3.  A  :  Type
4.  f  :  A  {}\mrightarrow{}  T
5.  u  :  A
6.  v  :  A  List
7.  \mforall{}[bs:T  List].  (eager-map-append(f;v;bs)  \msim{}  map(f;rev(v))  @  bs)
8.  bs  :  T  List
\mvdash{}  map(f;rev(v))  @  [f  u  /  bs]  \msim{}  (map(f;rev(v))  @  map(f;[u]))  @  bs


By

---

Latex:
(Reduce  0  THEN  (RWO  "append\_assoc\_sq"  0  THENA  Auto))

---

Home Index