---

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


1. a : ℝ
2. b : ℝ
3. f : (ℤ × ℕ+) ⟶ (ℤ × ℕ+)
4. g : {x:ℝ| x ∈ [a, b]}  ⟶ ℝ
5. (a < b)
∧ ((g[a] * g[b]) < r0)
∧ (∀x,y:{x:ℝ| x ∈ [a, b]} .  ((x = y) ⇒ (g[x] = g[y])))
∧ (∀r:ℤ × ℕ+. ((ratreal(r) ∈ [a, b]) ⇒ (g[ratreal(r)] = ratreal(f[r]))))
6. ra : ℤ × ℕ+
7. rb : ℤ × ℕ+
8. a ≤ ratreal(ra)
9. ratreal(ra) ≤ ratreal(rb)
10. ratreal(rb) ≤ b
11. ratreal(ratmul(f[ra];f[rb])) < r0
12. (ratreal(f[rb]) ≤ r0) ∧ (r0 ≤ ratreal(f[ra]))
13. rational-fun-zero(λ2x.int-rat-mul(-1;f[x]);ra;rb) ∈ {c:ℝ| (c ∈ [ratreal(ra), ratreal(rb)]) ∧ (-(g[c]) = r0)} 
⊢ rational-fun-zero(λ2x.int-rat-mul(-1;f[x]);ra;rb) ∈ ∃c:{c:ℝ| c ∈ (a, b)}  [(g[c] = r0)]
BY
{ (((MemTypeHD (-1) THENA Auto) THEN Fold `member` (-2) THEN D -1)
   THEN (Assert g[rational-fun-zero(λ2x.int-rat-mul(-1;f[x]);ra;rb)] = r0 BY
               (MoveToConcl (-1)
                THEN (GenConclTerm ⌜g[rational-fun-zero(λ2x.int-rat-mul(-1;f[x]);ra;rb)]⌝⋅
                      THENA (All Reduce THEN MemCD THEN Auto)
                      )
                THEN (All Thin THEN Auto)
                THEN nRAdd ⌜v⌝ (-1)⋅
                THEN Auto))
   ) }

1
1. a : ℝ
2. b : ℝ
3. f : (ℤ × ℕ+) ⟶ (ℤ × ℕ+)
4. g : {x:ℝ| x ∈ [a, b]}  ⟶ ℝ
5. (a < b)
∧ ((g[a] * g[b]) < r0)
∧ (∀x,y:{x:ℝ| x ∈ [a, b]} .  ((x = y) ⇒ (g[x] = g[y])))
∧ (∀r:ℤ × ℕ+. ((ratreal(r) ∈ [a, b]) ⇒ (g[ratreal(r)] = ratreal(f[r]))))
6. ra : ℤ × ℕ+
7. rb : ℤ × ℕ+
8. a ≤ ratreal(ra)
9. ratreal(ra) ≤ ratreal(rb)
10. ratreal(rb) ≤ b
11. ratreal(ratmul(f[ra];f[rb])) < r0
12. (ratreal(f[rb]) ≤ r0) ∧ (r0 ≤ ratreal(f[ra]))
13. rational-fun-zero(λ2x.int-rat-mul(-1;f[x]);ra;rb) ∈ ℝ
14. rational-fun-zero(λ2x.int-rat-mul(-1;f[x]);ra;rb) ∈ [ratreal(ra), ratreal(rb)]
15. -(g[rational-fun-zero(λ2x.int-rat-mul(-1;f[x]);ra;rb)]) = r0
16. g[rational-fun-zero(λ2x.int-rat-mul(-1;f[x]);ra;rb)] = r0
⊢ rational-fun-zero(λ2x.int-rat-mul(-1;f[x]);ra;rb) ∈ ∃c:{c:ℝ| c ∈ (a, b)}  [(g[c] = 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)
\mwedge{}  ((g[a]  *  g[b])  <  r0)
\mwedge{}  (\mforall{}x,y:\{x:\mBbbR{}|  x  \mmember{}  [a,  b]\}  .    ((x  =  y)  {}\mRightarrow{}  (g[x]  =  g[y])))
\mwedge{}  (\mforall{}r:\mBbbZ{}  \mtimes{}  \mBbbN{}\msupplus{}.  ((ratreal(r)  \mmember{}  [a,  b])  {}\mRightarrow{}  (g[ratreal(r)]  =  ratreal(f[r]))))
6.  ra  :  \mBbbZ{}  \mtimes{}  \mBbbN{}\msupplus{}
7.  rb  :  \mBbbZ{}  \mtimes{}  \mBbbN{}\msupplus{}
8.  a  \mleq{}  ratreal(ra)
9.  ratreal(ra)  \mleq{}  ratreal(rb)
10.  ratreal(rb)  \mleq{}  b
11.  ratreal(ratmul(f[ra];f[rb]))  <  r0
12.  (ratreal(f[rb])  \mleq{}  r0)  \mwedge{}  (r0  \mleq{}  ratreal(f[ra]))
13.  rational-fun-zero(\mlambda{}\msubtwo{}x.int-rat-mul(-1;f[x]);ra;rb)  \mmember{}  \{c:\mBbbR{}| 
                                                                                                                  (c  \mmember{}  [ratreal(ra),  ratreal(rb)])
                                                                                                                  \mwedge{}  (-(g[c])  =  r0)\} 
\mvdash{}  rational-fun-zero(\mlambda{}\msubtwo{}x.int-rat-mul(-1;f[x]);ra;rb)  \mmember{}  \mexists{}c:\{c:\mBbbR{}|  c  \mmember{}  (a,  b)\}    [(g[c]  =  r0)]


By

---

Latex:
(((MemTypeHD  (-1)  THENA  Auto)  THEN  Fold  `member`  (-2)  THEN  D  -1)
  THEN  (Assert  g[rational-fun-zero(\mlambda{}\msubtwo{}x.int-rat-mul(-1;f[x]);ra;rb)]  =  r0  BY
                          (MoveToConcl  (-1)
                            THEN  (GenConclTerm  \mkleeneopen{}g[rational-fun-zero(\mlambda{}\msubtwo{}x.int-rat-mul(-1;f[x]);ra;rb)]\mkleeneclose{}\mcdot{}
                                        THENA  (All  Reduce  THEN  MemCD  THEN  Auto)
                                        )
                            THEN  (All  Thin  THEN  Auto)
                            THEN  nRAdd  \mkleeneopen{}v\mkleeneclose{}  (-1)\mcdot{}
                            THEN  Auto))
  )

---

Home Index