---

Step * of Lemma upto_decomp1

∀[n:ℕ+]. (upto(n) ~ upto(n - 1) @ [n - 1])
BY
{ (D 0 THENA Auto)
THEN (InstLemma `upto_decomp` [⌜n⌝;⌜n - 1⌝]⋅ THENA Auto)
THEN NthHypSq (-1)
THEN RepeatFor 2 (EqCD) }

1
1. n : ℕ+
2. upto(n) ~ upto(n - 1) @ map(λx.(x + (n - 1));upto(n - n - 1))
⊢ upto(n - 1) ~ upto(n - 1)

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

---

Latex:

---

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


By

---

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

---

Home Index