---

Step * 1 2 1 1 1 1 1 1 of Lemma approx-arg-interval_wf

.....assertion..... 
1. l : ℝ
2. r : ℝ
3. l < r
4. f : [l, r] ⟶ℝ
5. f' : [l, r] ⟶ℝ
6. ∀x,y:{t:ℝ| t ∈ [l, r]} .  ((x = y) ⇒ (f'[x] = f'[y]))
7. d(f[x])/dx = λx.f'[x] on [l, r]
8. B : ℕ
9. ∀x:{x:ℝ| x ∈ [l, r]} . (|f'[x]| ≤ r(B))
10. ∀x,y:{x:ℝ| x ∈ [l, r]} .  (|f[x] - f[y]| ≤ (r(B) * |x - y|))
11. x : ℝ
12. x ∈ [l, r]
13. n : ℕ+
14. m : ℕ+
15. v : ℝ
16. v ∈ [l, r]
17. |x - v| ≤ (r(2)/r(n))
18. approx-in-interval(l;r;x;n) = v ∈ {y:ℝ| (y ∈ [l, r]) ∧ (|x - y| ≤ (r(2)/r(n)))} 
19. v1 : ℝ
20. v1 ∈ [l, r]
21. |x - v1| ≤ (r(2)/r(m))
22. approx-in-interval(l;r;x;m) = v1 ∈ {y:ℝ| (y ∈ [l, r]) ∧ (|x - y| ≤ (r(2)/r(m)))} 
23. |f[v] - f[v1]| ≤ (r(B) * |v - v1|)
⊢ |(r(2 * n * m) * (f v)) - r(m * (f v n))| ≤ r(2 * m)
BY
{ ((InstLemma `rational-approx-property` [⌜f v⌝;⌜n⌝]⋅ THENA Auto)
   THEN Unfold `rational-approx` -1
   THEN nRMul ⌜r(n)⌝ (-1)⋅
   THEN nRMul ⌜r(2)⌝ (-1)⋅
   THEN (RWO  "int-rdiv-req" (-1) THENA Auto)
   THEN (RWO  "rmul-assoc" (-1) THENA Auto)
   THEN (RWO "rmul-int" (-1) THENA Auto)) }

1
1. l : ℝ
2. r : ℝ
3. l < r
4. f : [l, r] ⟶ℝ
5. f' : [l, r] ⟶ℝ
6. ∀x,y:{t:ℝ| t ∈ [l, r]} .  ((x = y) ⇒ (f'[x] = f'[y]))
7. d(f[x])/dx = λx.f'[x] on [l, r]
8. B : ℕ
9. ∀x:{x:ℝ| x ∈ [l, r]} . (|f'[x]| ≤ r(B))
10. ∀x,y:{x:ℝ| x ∈ [l, r]} .  (|f[x] - f[y]| ≤ (r(B) * |x - y|))
11. x : ℝ
12. x ∈ [l, r]
13. n : ℕ+
14. m : ℕ+
15. v : ℝ
16. v ∈ [l, r]
17. |x - v| ≤ (r(2)/r(n))
18. approx-in-interval(l;r;x;n) = v ∈ {y:ℝ| (y ∈ [l, r]) ∧ (|x - y| ≤ (r(2)/r(n)))} 
19. v1 : ℝ
20. v1 ∈ [l, r]
21. |x - v1| ≤ (r(2)/r(m))
22. approx-in-interval(l;r;x;m) = v1 ∈ {y:ℝ| (y ∈ [l, r]) ∧ (|x - y| ≤ (r(2)/r(m)))} 
23. |f[v] - f[v1]| ≤ (r(B) * |v - v1|)
24. (r(2 * n) * |(f v) + -((r(f v n)/r(2 * n)))|) ≤ r(2)
⊢ |(r(2 * n * m) * (f v)) - r(m * (f v n))| ≤ r(2 * m)

---

Latex:

---

Latex:
.....assertion..... 
1.  l  :  \mBbbR{}
2.  r  :  \mBbbR{}
3.  l  <  r
4.  f  :  [l,  r]  {}\mrightarrow{}\mBbbR{}
5.  f'  :  [l,  r]  {}\mrightarrow{}\mBbbR{}
6.  \mforall{}x,y:\{t:\mBbbR{}|  t  \mmember{}  [l,  r]\}  .    ((x  =  y)  {}\mRightarrow{}  (f'[x]  =  f'[y]))
7.  d(f[x])/dx  =  \mlambda{}x.f'[x]  on  [l,  r]
8.  B  :  \mBbbN{}
9.  \mforall{}x:\{x:\mBbbR{}|  x  \mmember{}  [l,  r]\}  .  (|f'[x]|  \mleq{}  r(B))
10.  \mforall{}x,y:\{x:\mBbbR{}|  x  \mmember{}  [l,  r]\}  .    (|f[x]  -  f[y]|  \mleq{}  (r(B)  *  |x  -  y|))
11.  x  :  \mBbbR{}
12.  x  \mmember{}  [l,  r]
13.  n  :  \mBbbN{}\msupplus{}
14.  m  :  \mBbbN{}\msupplus{}
15.  v  :  \mBbbR{}
16.  v  \mmember{}  [l,  r]
17.  |x  -  v|  \mleq{}  (r(2)/r(n))
18.  approx-in-interval(l;r;x;n)  =  v
19.  v1  :  \mBbbR{}
20.  v1  \mmember{}  [l,  r]
21.  |x  -  v1|  \mleq{}  (r(2)/r(m))
22.  approx-in-interval(l;r;x;m)  =  v1
23.  |f[v]  -  f[v1]|  \mleq{}  (r(B)  *  |v  -  v1|)
\mvdash{}  |(r(2  *  n  *  m)  *  (f  v))  -  r(m  *  (f  v  n))|  \mleq{}  r(2  *  m)


By

---

Latex:
((InstLemma  `rational-approx-property`  [\mkleeneopen{}f  v\mkleeneclose{};\mkleeneopen{}n\mkleeneclose{}]\mcdot{}  THENA  Auto)
  THEN  Unfold  `rational-approx`  -1
  THEN  nRMul  \mkleeneopen{}r(n)\mkleeneclose{}  (-1)\mcdot{}
  THEN  nRMul  \mkleeneopen{}r(2)\mkleeneclose{}  (-1)\mcdot{}
  THEN  (RWO    "int-rdiv-req"  (-1)  THENA  Auto)
  THEN  (RWO    "rmul-assoc"  (-1)  THENA  Auto)
  THEN  (RWO  "rmul-int"  (-1)  THENA  Auto))

---

Home Index