---

Step * of Lemma map-upto

∀[n:ℕ+]. ∀[f:Top].  (map(f;upto(n)) ~ map(f;upto(n - 1)) @ [f (n - 1)])
BY
{ ((UnivCD THENA Auto)
   THEN RW (AddrC [1;2] (LemmaC `upto_decomp1`)) 0
   THEN (RWW "map_append_sq" 0 THENM Reduce 0)
   THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[n:\mBbbN{}\msupplus{}].  \mforall{}[f:Top].    (map(f;upto(n))  \msim{}  map(f;upto(n  -  1))  @  [f  (n  -  1)])


By

---

Latex:
((UnivCD  THENA  Auto)
  THEN  RW  (AddrC  [1;2]  (LemmaC  `upto\_decomp1`))  0
  THEN  (RWW  "map\_append\_sq"  0  THENM  Reduce  0)
  THEN  Auto)

---

Home Index