---

Step * of Lemma upto_decomp2

∀[n:ℕ+]. (upto(n) ~ [0 / map(λi.(i + 1);upto(n - 1))])
BY
{ (D 0 THENA Auto)
THEN (InstLemma `upto_decomp` [⌜n⌝;⌜1⌝]⋅ THENA Auto)⋅
THEN HypSubst' (-1) 0 }

1
1. n : ℕ+
2. upto(n) ~ upto(1) @ map(λx.(x + 1);upto(n - 1))
⊢ upto(1) @ map(λx.(x + 1);upto(n - 1)) ~ [0 / map(λi.(i + 1);upto(n - 1))]

---

Latex:

---

Latex:
\mforall{}[n:\mBbbN{}\msupplus{}].  (upto(n)  \msim{}  [0  /  map(\mlambda{}i.(i  +  1);upto(n  -  1))])


By

---

Latex:
(D  0  THENA  Auto)
THEN  (InstLemma  `upto\_decomp`  [\mkleeneopen{}n\mkleeneclose{};\mkleeneopen{}1\mkleeneclose{}]\mcdot{}  THENA  Auto)\mcdot{}
THEN  HypSubst'  (-1)  0

---

Home Index