---

Step * 1 1 1 1 1 1 1 of Lemma rational-IVT


1. a : ℝ
2. b : ℝ
3. f : (ℤ × ℕ+) ⟶ (ℤ × ℕ+)
4. g : {x:ℝ| x ∈ [a, b]}  ⟶ ℝ
5. a < b
6. (g[a] * g[b]) < r0
7. ∀x,y:{x:ℝ| x ∈ [a, b]} .  ((x = y) ⇒ (g[x] = g[y]))
8. ∀r:ℤ × ℕ+. ((ratreal(r) ∈ [a, b]) ⇒ (g[ratreal(r)] = ratreal(f[r])))
9. ∀n:ℕ+. (ratreal(<(a (2 * n)) + 2, 4 * n>) = above a within 1/n)
10. ∀n:ℕ+. (ratreal(<(b (2 * n)) - 2, 4 * n>) = (below b within 1/n))
⊢ ∃n:ℕ+. ((above a within 1/n ≤ (below b within 1/n)) ∧ ((g[above a within 1/n] * g[(below b within 1/n)]) < r0))
BY
{ (Assert g[a] ≠ r0 ∧ g[b] ≠ r0 BY
         ((Assert r0 < (-(g[a]) * g[b]) BY Auto) THEN (RWO "rmul-is-positive" (-1) THENA Auto) THEN D -1 THEN Auto)) }

1
1. a : ℝ
2. b : ℝ
3. f : (ℤ × ℕ+) ⟶ (ℤ × ℕ+)
4. g : {x:ℝ| x ∈ [a, b]}  ⟶ ℝ
5. a < b
6. (g[a] * g[b]) < r0
7. ∀x,y:{x:ℝ| x ∈ [a, b]} .  ((x = y) ⇒ (g[x] = g[y]))
8. ∀r:ℤ × ℕ+. ((ratreal(r) ∈ [a, b]) ⇒ (g[ratreal(r)] = ratreal(f[r])))
9. ∀n:ℕ+. (ratreal(<(a (2 * n)) + 2, 4 * n>) = above a within 1/n)
10. ∀n:ℕ+. (ratreal(<(b (2 * n)) - 2, 4 * n>) = (below b within 1/n))
11. g[a] ≠ r0 ∧ g[b] ≠ r0
⊢ ∃n:ℕ+. ((above a within 1/n ≤ (below b within 1/n)) ∧ ((g[above a within 1/n] * g[(below b within 1/n)]) < r0))

---

Latex:

---

Latex:

1.  a  :  \mBbbR{}
2.  b  :  \mBbbR{}
3.  f  :  (\mBbbZ{}  \mtimes{}  \mBbbN{}\msupplus{})  {}\mrightarrow{}  (\mBbbZ{}  \mtimes{}  \mBbbN{}\msupplus{})
4.  g  :  \{x:\mBbbR{}|  x  \mmember{}  [a,  b]\}    {}\mrightarrow{}  \mBbbR{}
5.  a  <  b
6.  (g[a]  *  g[b])  <  r0
7.  \mforall{}x,y:\{x:\mBbbR{}|  x  \mmember{}  [a,  b]\}  .    ((x  =  y)  {}\mRightarrow{}  (g[x]  =  g[y]))
8.  \mforall{}r:\mBbbZ{}  \mtimes{}  \mBbbN{}\msupplus{}.  ((ratreal(r)  \mmember{}  [a,  b])  {}\mRightarrow{}  (g[ratreal(r)]  =  ratreal(f[r])))
9.  \mforall{}n:\mBbbN{}\msupplus{}.  (ratreal(<(a  (2  *  n))  +  2,  4  *  n>)  =  above  a  within  1/n)
10.  \mforall{}n:\mBbbN{}\msupplus{}.  (ratreal(<(b  (2  *  n))  -  2,  4  *  n>)  =  (below  b  within  1/n))
\mvdash{}  \mexists{}n:\mBbbN{}\msupplus{}
      ((above  a  within  1/n  \mleq{}  (below  b  within  1/n))
      \mwedge{}  ((g[above  a  within  1/n]  *  g[(below  b  within  1/n)])  <  r0))


By

---

Latex:
(Assert  g[a]  \mneq{}  r0  \mwedge{}  g[b]  \mneq{}  r0  BY
              ((Assert  r0  <  (-(g[a])  *  g[b])  BY
                              Auto)
                THEN  (RWO  "rmul-is-positive"  (-1)  THENA  Auto)
                THEN  D  -1
                THEN  Auto))

---

Home Index