---

Step * 1 2 1 2 1 2 2 1 of Lemma Riemann-integral-rless


1. a : ℝ
2. b : {b:ℝ| a < b} 
3. f : {f:[a, b] ⟶ℝ| ifun(f;[a, b])} 
4. c : ℝ
5. ∀x:ℝ. ((x ∈ [a, b]) ⇒ (f[x] ≤ c))
6. x : ℝ
7. x ∈ [a, b]
8. f[x] < c
9. a < b
10. d : ℝ
11. c' : ℝ
12. r0 < d
13. c' < c
14. ∀y:ℝ. ((y ∈ [a, b]) ⇒ (|y - x| ≤ d) ⇒ (f[y] ≤ c'))
15. ∫ f[x] dx on [a, b] = (∫ f[x] dx on [a, x] + ∫ f[x] dx on [x, b])
16. (c * (b - a)) = ((c * (x - a)) + (c * (b - x)))
17. ifun(f;[a, x])
18. ifun(f;[x, b])
19. x < b
20. m : ℝ
21. x < m
22. m ≤ (x + d)
23. m ≤ b
⊢ ∫ f[x] dx on [x, b] < (c * (b - x))
BY
{ (All Reduce
   THEN ((InstLemma `Riemann-integral-additive` [⌜x⌝;⌜b⌝;⌜f⌝;⌜m⌝]⋅ THENA Auto) THEN (RWO "-1" 0 THENA Auto))
   THEN ((Assert (c * (b - x)) = ((c * (m - x)) + (c * (b - m))) BY (nRNorm 0 THEN Auto)) THEN (RWO "-1" 0 THENA Auto))
   THEN (Assert ⌜ifun(f;[x, m]) ∧ ifun(f;[m, b])⌝⋅
         THENA (D 0 THEN DVar `f' THEN Unhide THEN Auto THEN RepeatFor 2 (ParallelOp 4) THEN All Reduce THEN Auto)
         )) }

1
1. a : ℝ
2. b : {b:ℝ| a < b} 
3. f : {f:[a, b] ⟶ℝ| ifun(f;[a, b])} 
4. c : ℝ
5. ∀x:ℝ. (((a ≤ x) ∧ (x ≤ b)) ⇒ (f[x] ≤ c))
6. x : ℝ
7. (a ≤ x) ∧ (x ≤ b)
8. f[x] < c
9. a < b
10. d : ℝ
11. c' : ℝ
12. r0 < d
13. c' < c
14. ∀y:ℝ. (((a ≤ y) ∧ (y ≤ b)) ⇒ (|y - x| ≤ d) ⇒ (f[y] ≤ c'))
15. ∫ f[x] dx on [a, b] = (∫ f[x] dx on [a, x] + ∫ f[x] dx on [x, b])
16. (c * (b - a)) = ((c * (x - a)) + (c * (b - x)))
17. ifun(f;[a, x])
18. ifun(f;[x, b])
19. x < b
20. m : ℝ
21. x < m
22. m ≤ (x + d)
23. m ≤ b
24. ∫ f[x] dx on [x, b] = (∫ f[x] dx on [x, m] + ∫ f[x] dx on [m, b])
25. (c * (b - x)) = ((c * (m - x)) + (c * (b - m)))
26. ifun(f;[x, m]) ∧ ifun(f;[m, b])
⊢ (∫ f[x] dx on [x, m] + ∫ f[x] dx on [m, b]) < ((c * (m - x)) + (c * (b - m)))

---

Latex:

---

Latex:

1.  a  :  \mBbbR{}
2.  b  :  \{b:\mBbbR{}|  a  <  b\} 
3.  f  :  \{f:[a,  b]  {}\mrightarrow{}\mBbbR{}|  ifun(f;[a,  b])\} 
4.  c  :  \mBbbR{}
5.  \mforall{}x:\mBbbR{}.  ((x  \mmember{}  [a,  b])  {}\mRightarrow{}  (f[x]  \mleq{}  c))
6.  x  :  \mBbbR{}
7.  x  \mmember{}  [a,  b]
8.  f[x]  <  c
9.  a  <  b
10.  d  :  \mBbbR{}
11.  c'  :  \mBbbR{}
12.  r0  <  d
13.  c'  <  c
14.  \mforall{}y:\mBbbR{}.  ((y  \mmember{}  [a,  b])  {}\mRightarrow{}  (|y  -  x|  \mleq{}  d)  {}\mRightarrow{}  (f[y]  \mleq{}  c'))
15.  \mint{}  f[x]  dx  on  [a,  b]  =  (\mint{}  f[x]  dx  on  [a,  x]  +  \mint{}  f[x]  dx  on  [x,  b])
16.  (c  *  (b  -  a))  =  ((c  *  (x  -  a))  +  (c  *  (b  -  x)))
17.  ifun(f;[a,  x])
18.  ifun(f;[x,  b])
19.  x  <  b
20.  m  :  \mBbbR{}
21.  x  <  m
22.  m  \mleq{}  (x  +  d)
23.  m  \mleq{}  b
\mvdash{}  \mint{}  f[x]  dx  on  [x,  b]  <  (c  *  (b  -  x))


By

---

Latex:
(All  Reduce
  THEN  ((InstLemma  `Riemann-integral-additive`  [\mkleeneopen{}x\mkleeneclose{};\mkleeneopen{}b\mkleeneclose{};\mkleeneopen{}f\mkleeneclose{};\mkleeneopen{}m\mkleeneclose{}]\mcdot{}  THENA  Auto)
              THEN  (RWO  "-1"  0  THENA  Auto)
              )
  THEN  ((Assert  (c  *  (b  -  x))  =  ((c  *  (m  -  x))  +  (c  *  (b  -  m)))  BY
                            (nRNorm  0  THEN  Auto))
              THEN  (RWO  "-1"  0  THENA  Auto)
              )
  THEN  (Assert  \mkleeneopen{}ifun(f;[x,  m])  \mwedge{}  ifun(f;[m,  b])\mkleeneclose{}\mcdot{}
              THENA  (D  0
                            THEN  DVar  `f'
                            THEN  Unhide
                            THEN  Auto
                            THEN  RepeatFor  2  (ParallelOp  4)
                            THEN  All  Reduce
                            THEN  Auto)
              ))

---

Home Index