---

Step * 1 1 1 9 of Lemma interval-fun-maps-compact


1. y1 : Top
2. y : Top
3. n : ℕ+
4. a : ℝ
5. b : ℝ
6. a ≤ b
7. g : [a, b] ⟶ℝ
8. ∀x:{x:ℝ| x ∈ [a, b]} . (g[x] ∈ <inr y1 , inr y >)
9. ∀x,y:{x:ℝ| x ∈ [a, b]} .  g[x] = g[y] supposing x = y
10. real-fun(g;a;b)
11. ∀c:ℝ. ((∀x:{x:ℝ| x ∈ [a, b]} . (c < (g x))) ⇒ (∃c':{c':ℝ| c < c'} . ∀x:{x:ℝ| x ∈ [a, b]} . (c' ≤ (g x))))
12. ∀c:ℝ. ((∀x:{x:ℝ| x ∈ [a, b]} . ((g x) < c)) ⇒ (∃c':{c':ℝ| c' < c} . ∀x:{x:ℝ| x ∈ [a, b]} . ((g x) ≤ c')))
13. bnd : ℝ
14. r0 ≤ bnd
15. ∀x:ℝ. ((x ∈ [a, b]) ⇒ (|g x| ≤ bnd))
⊢ ∃c,d:ℝ. ([c, d] ⊆ <inr y1 , inr y >  ∧ (∀x:{x:ℝ| x ∈ [a, b]} . (g[x] ∈ [c, d])))
BY
{ ((InstConcl [⌜-(bnd)⌝;⌜bnd⌝]⋅ THENA Auto)
   THEN D 0
   THEN Try (((ParallelOp 8 THEN RepUR ``i-member`` -1 THEN Reduce 0 THEN Auto)
              THEN (Assert |g x| ≤ bnd BY
                          Auto)
              THEN EAuto 1))
   THEN RepUR ``subinterval i-member`` 0
   THEN Auto) }

---

Latex:

---

Latex:

1.  y1  :  Top
2.  y  :  Top
3.  n  :  \mBbbN{}\msupplus{}
4.  a  :  \mBbbR{}
5.  b  :  \mBbbR{}
6.  a  \mleq{}  b
7.  g  :  [a,  b]  {}\mrightarrow{}\mBbbR{}
8.  \mforall{}x:\{x:\mBbbR{}|  x  \mmember{}  [a,  b]\}  .  (g[x]  \mmember{}  <inr  y1  ,  inr  y  >)
9.  \mforall{}x,y:\{x:\mBbbR{}|  x  \mmember{}  [a,  b]\}  .    g[x]  =  g[y]  supposing  x  =  y
10.  real-fun(g;a;b)
11.  \mforall{}c:\mBbbR{}
            ((\mforall{}x:\{x:\mBbbR{}|  x  \mmember{}  [a,  b]\}  .  (c  <  (g  x)))
            {}\mRightarrow{}  (\mexists{}c':\{c':\mBbbR{}|  c  <  c'\}  .  \mforall{}x:\{x:\mBbbR{}|  x  \mmember{}  [a,  b]\}  .  (c'  \mleq{}  (g  x))))
12.  \mforall{}c:\mBbbR{}
            ((\mforall{}x:\{x:\mBbbR{}|  x  \mmember{}  [a,  b]\}  .  ((g  x)  <  c))
            {}\mRightarrow{}  (\mexists{}c':\{c':\mBbbR{}|  c'  <  c\}  .  \mforall{}x:\{x:\mBbbR{}|  x  \mmember{}  [a,  b]\}  .  ((g  x)  \mleq{}  c')))
13.  bnd  :  \mBbbR{}
14.  r0  \mleq{}  bnd
15.  \mforall{}x:\mBbbR{}.  ((x  \mmember{}  [a,  b])  {}\mRightarrow{}  (|g  x|  \mleq{}  bnd))
\mvdash{}  \mexists{}c,d:\mBbbR{}.  ([c,  d]  \msubseteq{}  <inr  y1  ,  inr  y  >    \mwedge{}  (\mforall{}x:\{x:\mBbbR{}|  x  \mmember{}  [a,  b]\}  .  (g[x]  \mmember{}  [c,  d])))


By

---

Latex:
((InstConcl  [\mkleeneopen{}-(bnd)\mkleeneclose{};\mkleeneopen{}bnd\mkleeneclose{}]\mcdot{}  THENA  Auto)
  THEN  D  0
  THEN  Try  (((ParallelOp  8  THEN  RepUR  ``i-member``  -1  THEN  Reduce  0  THEN  Auto)
                        THEN  (Assert  |g  x|  \mleq{}  bnd  BY
                                                Auto)
                        THEN  EAuto  1))
  THEN  RepUR  ``subinterval  i-member``  0
  THEN  Auto)

---

Home Index