---

Step * 1 2 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
{ ((D (-4) THENA Auto)
   THEN RecUnfold `from-upto` 0
   THEN (OReduce 0 THENA Auto)
   THEN (CallByValueReduce 0 THENA Auto)
   THEN EqCDA) }

1
.....subterm..... T:t
2:n
1. k : ℤ
2. 0 < k
3. 0 < k
4. n : ℤ
5. ¬(k = 1 ∈ ℤ)
6. ∀n:ℤ. ([n, n + (k - 1)) = ([n, (n + (k - 1)) - 1) @ [(n + (k - 1)) - 1]) ∈ (ℤ List))
⊢ [n + 1, n + k) = ([n + 1, (n + k) - 1) @ [(n + k) - 1]) ∈ (ℤ List)

---

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.  \mneg{}(k  =  1)
\mvdash{}  [n,  n  +  k)  =  ([n,  (n  +  k)  -  1)  @  [(n  +  k)  -  1])


By

---

Latex:
((D  (-4)  THENA  Auto)
  THEN  RecUnfold  `from-upto`  0
  THEN  (OReduce  0  THENA  Auto)
  THEN  (CallByValueReduce  0  THENA  Auto)
  THEN  EqCDA)

---

Home Index