---

Step * of Lemma upto_add_1

∀[n:ℕ]. (upto(n + 1) ~ upto(n) @ [n])
BY
{ (D 0 THENA Auto)
THEN (RW (AddrC [1] (LemmaC `upto_decomp1`)) 0 THENA Auto) }

1
1. n : ℕ
⊢ upto((n + 1) - 1) @ [(n + 1) - 1] ~ upto(n) @ [n]

---

Latex:

---

Latex:
\mforall{}[n:\mBbbN{}].  (upto(n  +  1)  \msim{}  upto(n)  @  [n])


By

---

Latex:
(D  0  THENA  Auto)
THEN  (RW  (AddrC  [1]  (LemmaC  `upto\_decomp1`))  0  THENA  Auto)

---

Home Index