---

Step * 2 1 1 2 1 of Lemma nearby-increasing-partition-avoids


1. I : Interval
2. icompact(I)
3. iproper(I)
4. L : ℝ List
5. u : ℝ
6. v : ℝ List
7. ¬(v = [] ∈ (ℝ List))
8. ∀e:{e:ℝ| r0 < e} 
     (frs-increasing(v)
     ⇒ partitions(I;v)
     ⇒ (∃q:partition(I). (frs-increasing(q) ∧ nearby-partitions(e;v;q) ∧ frs-separated(q;L))))
9. e : {e:ℝ| r0 < e} 
10. frs-increasing([u / v])
11. partitions(I;[u / v])
12. frs-increasing(v)
13. partitions(I;v)
14. 0 < ||v||
15. r0 < (v[0] - u)
⊢ ∃q:partition(I). (frs-increasing(q) ∧ nearby-partitions(e;[u / v];q) ∧ frs-separated(q;L))
BY
{ ((Assert r0 < rmin(e;(v[0] - u/r(3))) BY
          ((BLemma `rmin_strict_ub` THEN Auto) THEN nRMul ⌜r(3)⌝ 0⋅ THEN Auto))
   THEN (InstHyp [⌜rmin(e;(v[0] - u/r(3)))⌝] 8⋅ THENA Auto)
   THEN ExRepD) }

1
1. I : Interval
2. icompact(I)
3. iproper(I)
4. L : ℝ List
5. u : ℝ
6. v : ℝ List
7. ¬(v = [] ∈ (ℝ List))
8. ∀e:{e:ℝ| r0 < e} 
     (frs-increasing(v)
     ⇒ partitions(I;v)
     ⇒ (∃q:partition(I). (frs-increasing(q) ∧ nearby-partitions(e;v;q) ∧ frs-separated(q;L))))
9. e : {e:ℝ| r0 < e} 
10. frs-increasing([u / v])
11. partitions(I;[u / v])
12. frs-increasing(v)
13. partitions(I;v)
14. 0 < ||v||
15. r0 < (v[0] - u)
16. r0 < rmin(e;(v[0] - u/r(3)))
17. q : partition(I)
18. frs-increasing(q)
19. nearby-partitions(rmin(e;(v[0] - u/r(3)));v;q)
20. frs-separated(q;L)
⊢ ∃q:partition(I). (frs-increasing(q) ∧ nearby-partitions(e;[u / v];q) ∧ frs-separated(q;L))

---

Latex:

---

Latex:

1.  I  :  Interval
2.  icompact(I)
3.  iproper(I)
4.  L  :  \mBbbR{}  List
5.  u  :  \mBbbR{}
6.  v  :  \mBbbR{}  List
7.  \mneg{}(v  =  [])
8.  \mforall{}e:\{e:\mBbbR{}|  r0  <  e\} 
          (frs-increasing(v)
          {}\mRightarrow{}  partitions(I;v)
          {}\mRightarrow{}  (\mexists{}q:partition(I).  (frs-increasing(q)  \mwedge{}  nearby-partitions(e;v;q)  \mwedge{}  frs-separated(q;L))))
9.  e  :  \{e:\mBbbR{}|  r0  <  e\} 
10.  frs-increasing([u  /  v])
11.  partitions(I;[u  /  v])
12.  frs-increasing(v)
13.  partitions(I;v)
14.  0  <  ||v||
15.  r0  <  (v[0]  -  u)
\mvdash{}  \mexists{}q:partition(I).  (frs-increasing(q)  \mwedge{}  nearby-partitions(e;[u  /  v];q)  \mwedge{}  frs-separated(q;L))


By

---

Latex:
((Assert  r0  <  rmin(e;(v[0]  -  u/r(3)))  BY
                ((BLemma  `rmin\_strict\_ub`  THEN  Auto)  THEN  nRMul  \mkleeneopen{}r(3)\mkleeneclose{}  0\mcdot{}  THEN  Auto))
  THEN  (InstHyp  [\mkleeneopen{}rmin(e;(v[0]  -  u/r(3)))\mkleeneclose{}]  8\mcdot{}  THENA  Auto)
  THEN  ExRepD)

---

Home Index