---

Step * 1 1 of Lemma from-upto-decomp-last


1. k : ℤ
2. 0 < k
3. 0 < k - 1 ⇒ (∀n:ℤ. ([n, n + (k - 1)) = ([n, (n + (k - 1)) - 1) @ [(n + (k - 1)) - 1]) ∈ (ℤ List)))
4. 0 < k
5. n : ℤ
6. k = 1 ∈ ℤ
⊢ [n, n + k) = ([n, (n + k) - 1) @ [(n + k) - 1]) ∈ (ℤ List)
BY
{ (HypSubst' (-1) 0
   THEN RecUnfold `from-upto` 0
   THEN (OReduce 0 THENA Auto)
   THEN (CallByValueReduce 0 THENA Auto)
   THEN RecUnfold `from-upto` 0
   THEN OReduce 0
   THEN Auto) }

---

Latex:

---

Latex:

1.  k  :  \mBbbZ{}
2.  0  <  k
3.  0  <  k  -  1  {}\mRightarrow{}  (\mforall{}n:\mBbbZ{}.  ([n,  n  +  (k  -  1))  =  ([n,  (n  +  (k  -  1))  -  1)  @  [(n  +  (k  -  1))  -  1])))
4.  0  <  k
5.  n  :  \mBbbZ{}
6.  k  =  1
\mvdash{}  [n,  n  +  k)  =  ([n,  (n  +  k)  -  1)  @  [(n  +  k)  -  1])


By

---

Latex:
(HypSubst'  (-1)  0
  THEN  RecUnfold  `from-upto`  0
  THEN  (OReduce  0  THENA  Auto)
  THEN  (CallByValueReduce  0  THENA  Auto)
  THEN  RecUnfold  `from-upto`  0
  THEN  OReduce  0
  THEN  Auto)

---

Home Index