---

Step * of Lemma concat-map-single

∀[f,L:Top].  (concat(map(λx.[f[x]];L)) ~ map(λx.f[x];L))
BY
{ (ListIndSq `L' THEN RWO "concat-cons" 0 THEN Reduce 0 THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[f,L:Top].    (concat(map(\mlambda{}x.[f[x]];L))  \msim{}  map(\mlambda{}x.f[x];L))


By

---

Latex:
(ListIndSq  `L'  THEN  RWO  "concat-cons"  0  THEN  Reduce  0  THEN  Auto)

---

Home Index