---

Step * 2 2 1 2 1 of Lemma upto_decomp1


1. n : ℕ+
2. upto(n) ~ upto(n - 1) @ map(λx.(x + (n - 1));upto(n - n - 1))
3. 0 + (n - 1) < 1 + (n - 1)
⊢ [] ~ [(0 + (n - 1)) + 1, 1 + (n - 1))
BY
{ ((Symmetry THEN BLemma `from-upto-is-nil` ) THEN Auto) }

---

Latex:

---

Latex:

1.  n  :  \mBbbN{}\msupplus{}
2.  upto(n)  \msim{}  upto(n  -  1)  @  map(\mlambda{}x.(x  +  (n  -  1));upto(n  -  n  -  1))
3.  0  +  (n  -  1)  <  1  +  (n  -  1)
\mvdash{}  []  \msim{}  [(0  +  (n  -  1))  +  1,  1  +  (n  -  1))


By

---

Latex:
((Symmetry  THEN  BLemma  `from-upto-is-nil`  )  THEN  Auto)

---

Home Index