Step
*
1
2
of Lemma
select-from-upto
1. d : ℤ
2. 0 < d
3. ∀n,m:ℤ.  (((m - n) ≤ (d - 1)) 
⇒ (∀k:ℕm - n. ([n, m)[k] ~ n + k)))
4. n : ℤ
5. m : ℤ
6. (m - n) ≤ d
7. k : ℕm - n
⊢ [n, m)[k] ~ n + k
BY
{ (RecUnfold `from-upto` 0 THEN AutoSplit THEN Try (Complete (Auto'))) }
1
1. d : ℤ
2. 0 < d
3. ∀n,m:ℤ.  (((m - n) ≤ (d - 1)) 
⇒ (∀k:ℕm - n. ([n, m)[k] ~ n + k)))
4. n : ℤ
5. m : ℤ
6. (m - n) ≤ d
7. k : ℕm - n
8. n < m
⊢ [n / eval n' = n + 1 in [n', m)][k] ~ n + k
Latex:
Latex:
1.  d  :  \mBbbZ{}
2.  0  <  d
3.  \mforall{}n,m:\mBbbZ{}.    (((m  -  n)  \mleq{}  (d  -  1))  {}\mRightarrow{}  (\mforall{}k:\mBbbN{}m  -  n.  ([n,  m)[k]  \msim{}  n  +  k)))
4.  n  :  \mBbbZ{}
5.  m  :  \mBbbZ{}
6.  (m  -  n)  \mleq{}  d
7.  k  :  \mBbbN{}m  -  n
\mvdash{}  [n,  m)[k]  \msim{}  n  +  k
By
Latex:
(RecUnfold  `from-upto`  0  THEN  AutoSplit  THEN  Try  (Complete  (Auto')))
Home
Index