Step * 1 1 of Lemma non-zero-deriv-non-constant


1. : ℝ
2. : ℝ
3. a < b
4. [a, b] ⟶ℝ
5. f' [a, b] ⟶ℝ
6. d(f(x))/dx = λx.f'(x) on [a, b]
7. {z:ℝz ∈ [a, b]} 
8. f'(z) ≠ r0
9. : ℝ
10. : ℕ+
11. (r1/r(k)) < |f'(z)|
12. icompact([a, b])
⊢ ∃z:{z:ℝz ∈ [a, b]} f(z) ≠ c
BY
((Assert ∃del:{ℝ((r0 < del)
                    ∧ (∀y:ℝ
                         ((y ∈ [a, b])
                          (|y z| ≤ del)
                          (|f(y) f(z) f'(z) (y z)| ≤ ((r1/r(2 k)) |y z|)))))} BY
          ((With ⌜k⌝ (D 6)⋅ THENA Auto)
           THEN (InstHyp [⌜1⌝(-1)⋅ THENA (Auto THEN RepUR ``i-approx iproper i-finite`` THEN EAuto 1))
           THEN ParallelLast
           THEN Auto
           THEN DVar `z'
           THEN Unhide
           THEN Auto))
   THEN -1
   }

1
1. : ℝ
2. : ℝ
3. a < b
4. [a, b] ⟶ℝ
5. f' [a, b] ⟶ℝ
6. d(f(x))/dx = λx.f'(x) on [a, b]
7. {z:ℝz ∈ [a, b]} 
8. f'(z) ≠ r0
9. : ℝ
10. : ℕ+
11. (r1/r(k)) < |f'(z)|
12. icompact([a, b])
13. del : ℝ
14. [%12] (r0 < del)
∧ (∀y:ℝ((y ∈ [a, b])  (|y z| ≤ del)  (|f(y) f(z) f'(z) (y z)| ≤ ((r1/r(2 k)) |y z|))))
⊢ ∃z:{z:ℝz ∈ [a, b]} f(z) ≠ c


Latex:


Latex:

1.  a  :  \mBbbR{}
2.  b  :  \mBbbR{}
3.  a  <  b
4.  f  :  [a,  b]  {}\mrightarrow{}\mBbbR{}
5.  f'  :  [a,  b]  {}\mrightarrow{}\mBbbR{}
6.  d(f(x))/dx  =  \mlambda{}x.f'(x)  on  [a,  b]
7.  z  :  \{z:\mBbbR{}|  z  \mmember{}  [a,  b]\} 
8.  f'(z)  \mneq{}  r0
9.  c  :  \mBbbR{}
10.  k  :  \mBbbN{}\msupplus{}
11.  (r1/r(k))  <  |f'(z)|
12.  icompact([a,  b])
\mvdash{}  \mexists{}z:\{z:\mBbbR{}|  z  \mmember{}  [a,  b]\}  .  f(z)  \mneq{}  c


By


Latex:
((Assert  \mexists{}del:\{\mBbbR{}|  ((r0  <  del)
                                    \mwedge{}  (\mforall{}y:\mBbbR{}
                                              ((y  \mmember{}  [a,  b])
                                              {}\mRightarrow{}  (|y  -  z|  \mleq{}  del)
                                              {}\mRightarrow{}  (|f(y)  -  f(z)  -  f'(z)  *  (y  -  z)|  \mleq{}  ((r1/r(2  *  k))  *  |y  -  z|)))))\}  BY
                ((With  \mkleeneopen{}2  *  k\mkleeneclose{}  (D  6)\mcdot{}  THENA  Auto)
                  THEN  (InstHyp  [\mkleeneopen{}1\mkleeneclose{}]  (-1)\mcdot{}
                              THENA  (Auto  THEN  RepUR  ``i-approx  iproper  i-finite``  0  THEN  EAuto  1)
                              )
                  THEN  ParallelLast
                  THEN  Auto
                  THEN  DVar  `z'
                  THEN  Unhide
                  THEN  Auto))
  THEN  D  -1
  )




Home Index