Step * of Lemma IVT-strict-monotonic

I:Interval. ∀f:I ⟶ℝ.
  (((∀x,y:{x:ℝx ∈ I} .  ((x < y)  ((f x) < (f y)))) ∨ (∀x,y:{x:ℝx ∈ I} .  ((x < y)  ((f y) < (f x)))))
   (∀x,y:{t:ℝt ∈ I} .  ((x y)  ((f x) (f y))))
   (∀a,b:{x:ℝx ∈ I} .
        (a ≠ b
         (∀x:ℝ
              (((((f a) ≤ x) ∧ (x ≤ (f b))) ∨ (((f b) ≤ x) ∧ (x ≤ (f a))))
               (∃c:ℝ((((a ≤ c) ∧ (c ≤ b)) ∨ ((b ≤ c) ∧ (c ≤ a))) ∧ ((f c) x))))))))
BY
(Auto
   THEN ((Assert [a, b] ⊆ I  BY EAuto 1) THEN (Assert [b, a] ⊆ I  BY EAuto 1))
   THEN ((D 3
          THENL [(InstLemma `IVT-strict-increasing` [⌜I⌝;⌜f⌝]⋅ THENA Auto)
                (InstLemma `IVT-strict-decreasing` [⌜I⌝;⌜f⌝]⋅ THENA Auto)]
         )
         THEN 7
         THEN -4
         THEN Try (((Assert ⌜False⌝⋅ THEN Auto) THEN FHyp [-7] THEN Complete (Auto)))
         THEN ((InstHyp [⌜a⌝;⌜b⌝;⌜x⌝(-1)⋅ THENA Complete (Auto))
         ORELSE (InstHyp [⌜b⌝;⌜a⌝;⌜x⌝(-1)⋅ THENA Complete (Auto))
         )
         THEN -1
         THEN (Assert c ∈ BY
                     Auto)
         THEN With ⌜c⌝ 
         THEN Auto
         THEN Try ((Unhide THEN Auto))
         THEN -1
         THEN Auto)⋅}


Latex:


Latex:
\mforall{}I:Interval.  \mforall{}f:I  {}\mrightarrow{}\mBbbR{}.
    (((\mforall{}x,y:\{x:\mBbbR{}|  x  \mmember{}  I\}  .    ((x  <  y)  {}\mRightarrow{}  ((f  x)  <  (f  y))))
      \mvee{}  (\mforall{}x,y:\{x:\mBbbR{}|  x  \mmember{}  I\}  .    ((x  <  y)  {}\mRightarrow{}  ((f  y)  <  (f  x)))))
    {}\mRightarrow{}  (\mforall{}x,y:\{t:\mBbbR{}|  t  \mmember{}  I\}  .    ((x  =  y)  {}\mRightarrow{}  ((f  x)  =  (f  y))))
    {}\mRightarrow{}  (\mforall{}a,b:\{x:\mBbbR{}|  x  \mmember{}  I\}  .
                (a  \mneq{}  b
                {}\mRightarrow{}  (\mforall{}x:\mBbbR{}
                            (((((f  a)  \mleq{}  x)  \mwedge{}  (x  \mleq{}  (f  b)))  \mvee{}  (((f  b)  \mleq{}  x)  \mwedge{}  (x  \mleq{}  (f  a))))
                            {}\mRightarrow{}  (\mexists{}c:\mBbbR{}.  ((((a  \mleq{}  c)  \mwedge{}  (c  \mleq{}  b))  \mvee{}  ((b  \mleq{}  c)  \mwedge{}  (c  \mleq{}  a)))  \mwedge{}  ((f  c)  =  x))))))))


By


Latex:
(Auto
  THEN  ((Assert  [a,  b]  \msubseteq{}  I    BY  EAuto  1)  THEN  (Assert  [b,  a]  \msubseteq{}  I    BY  EAuto  1))
  THEN  ((D  3
                THENL  [(InstLemma  `IVT-strict-increasing`  [\mkleeneopen{}I\mkleeneclose{};\mkleeneopen{}f\mkleeneclose{}]\mcdot{}  THENA  Auto)
                            ;  (InstLemma  `IVT-strict-decreasing`  [\mkleeneopen{}I\mkleeneclose{};\mkleeneopen{}f\mkleeneclose{}]\mcdot{}  THENA  Auto)]
              )
              THEN  D  7
              THEN  D  -4
              THEN  Try  (((Assert  \mkleeneopen{}False\mkleeneclose{}\mcdot{}  THEN  Auto)  THEN  FHyp  3  [-7]  THEN  Complete  (Auto)))
              THEN  ((InstHyp  [\mkleeneopen{}a\mkleeneclose{};\mkleeneopen{}b\mkleeneclose{};\mkleeneopen{}x\mkleeneclose{}]  (-1)\mcdot{}  THENA  Complete  (Auto))
              ORELSE  (InstHyp  [\mkleeneopen{}b\mkleeneclose{};\mkleeneopen{}a\mkleeneclose{};\mkleeneopen{}x\mkleeneclose{}]  (-1)\mcdot{}  THENA  Complete  (Auto))
              )
              THEN  D  -1
              THEN  (Assert  c  \mmember{}  I  BY
                                      Auto)
              THEN  D  0  With  \mkleeneopen{}c\mkleeneclose{} 
              THEN  Auto
              THEN  Try  ((Unhide  THEN  Auto))
              THEN  D  -1
              THEN  Auto)\mcdot{})




Home Index