Step
*
1
2
1
2
1
1
1
2
of Lemma
nearby-increasing-partition
1. I : Interval
2. icompact(I)
3. p : ℝ List
4. ¬(p = [] ∈ (ℝ List))
5. e : {e:ℝ| r0 < e} 
6. k : ℕ+
7. (r1/r(k)) < e
8. left-endpoint(I) < right-endpoint(I)
9. partitions(I;p)
10. left-endpoint(I) < p[0]
11. k1 : ℕ+
12. (r1/r(k1)) < (p[0] - left-endpoint(I))
13. i : ℕ||p||
14. (r(i)/r(||p|| * imax(k;k1))) < e
⊢ (r(i)/r(||p|| * imax(k;k1))) < (p[0] - left-endpoint(I))
BY
{ (Assert ⌜(r(i)/r(||p|| * imax(k;k1))) ≤ (r1/r(k1))⌝⋅ THENM (RelRST THEN Auto)) }
1
.....assertion..... 
1. I : Interval
2. icompact(I)
3. p : ℝ List
4. ¬(p = [] ∈ (ℝ List))
5. e : {e:ℝ| r0 < e} 
6. k : ℕ+
7. (r1/r(k)) < e
8. left-endpoint(I) < right-endpoint(I)
9. partitions(I;p)
10. left-endpoint(I) < p[0]
11. k1 : ℕ+
12. (r1/r(k1)) < (p[0] - left-endpoint(I))
13. i : ℕ||p||
14. (r(i)/r(||p|| * imax(k;k1))) < e
⊢ (r(i)/r(||p|| * imax(k;k1))) ≤ (r1/r(k1))
Latex:
Latex:
1.  I  :  Interval
2.  icompact(I)
3.  p  :  \mBbbR{}  List
4.  \mneg{}(p  =  [])
5.  e  :  \{e:\mBbbR{}|  r0  <  e\} 
6.  k  :  \mBbbN{}\msupplus{}
7.  (r1/r(k))  <  e
8.  left-endpoint(I)  <  right-endpoint(I)
9.  partitions(I;p)
10.  left-endpoint(I)  <  p[0]
11.  k1  :  \mBbbN{}\msupplus{}
12.  (r1/r(k1))  <  (p[0]  -  left-endpoint(I))
13.  i  :  \mBbbN{}||p||
14.  (r(i)/r(||p||  *  imax(k;k1)))  <  e
\mvdash{}  (r(i)/r(||p||  *  imax(k;k1)))  <  (p[0]  -  left-endpoint(I))
By
Latex:
(Assert  \mkleeneopen{}(r(i)/r(||p||  *  imax(k;k1)))  \mleq{}  (r1/r(k1))\mkleeneclose{}\mcdot{}  THENM  (RelRST  THEN  Auto))
Home
Index