---

Step * 1 2 of Lemma from-upto-split


1. d : ℤ
2. 0 < d
3. ∀n,m:ℤ.  (((m - n) ≤ (d - 1)) ⇒ (∀k:ℤ. ((n ≤ k) ⇒ (k ≤ m) ⇒ ([n, m) ~ [n, k) @ [k, m)))))
4. n : ℤ
5. m : ℤ
6. (m - n) ≤ d
7. k : ℤ
8. n ≤ k
9. k ≤ m
⊢ [n, m) ~ [n, k) @ [k, m)
BY
{ (RW (AddrC [1] (RecUnfoldC `from-upto`)) 0 THEN AutoSplit) }

1
1. d : ℤ
2. 0 < d
3. ∀n,m:ℤ.  (((m - n) ≤ (d - 1)) ⇒ (∀k:ℤ. ((n ≤ k) ⇒ (k ≤ m) ⇒ ([n, m) ~ [n, k) @ [k, m)))))
4. n : ℤ
5. m : ℤ
6. (m - n) ≤ d
7. k : ℤ
8. n ≤ k
9. k ≤ m
10. n < m
⊢ [n / eval n' = n + 1 in [n', m)] ~ [n, k) @ [k, m)

2
1. d : ℤ
2. 0 < d
3. ∀n,m:ℤ.  (((m - n) ≤ (d - 1)) ⇒ (∀k:ℤ. ((n ≤ k) ⇒ (k ≤ m) ⇒ ([n, m) ~ [n, k) @ [k, m)))))
4. n : ℤ
5. m : ℤ
6. ¬n < m
7. (m - n) ≤ d
8. k : ℤ
9. n ≤ k
10. k ≤ m
⊢ [] ~ [n, k) @ [k, m)

---

Latex:

---

Latex:

1.  d  :  \mBbbZ{}
2.  0  <  d
3.  \mforall{}n,m:\mBbbZ{}.    (((m  -  n)  \mleq{}  (d  -  1))  {}\mRightarrow{}  (\mforall{}k:\mBbbZ{}.  ((n  \mleq{}  k)  {}\mRightarrow{}  (k  \mleq{}  m)  {}\mRightarrow{}  ([n,  m)  \msim{}  [n,  k)  @  [k,  m)))))
4.  n  :  \mBbbZ{}
5.  m  :  \mBbbZ{}
6.  (m  -  n)  \mleq{}  d
7.  k  :  \mBbbZ{}
8.  n  \mleq{}  k
9.  k  \mleq{}  m
\mvdash{}  [n,  m)  \msim{}  [n,  k)  @  [k,  m)


By

---

Latex:
(RW  (AddrC  [1]  (RecUnfoldC  `from-upto`))  0  THEN  AutoSplit)

---

Home Index