Step
*
1
of Lemma
rat-cube-third-half
1. v2 : ℚ
2. v3 : ℚ
3. v4 : ℚ
4. v5 : ℚ
5. r : ℝ
6. ((v4 = v2 ∈ ℚ) ∧ (v5 = qavg(v2;v3) ∈ ℚ)) ∨ ((v4 = qavg(v2;v3) ∈ ℚ) ∧ (v5 = v3 ∈ ℚ))
7. rat2real(v4) ≤ r
8. r ≤ rat2real(v5)
9. rat2real(v2) ≤ r
10. r ≤ rat2real(v3)
11. (r = ((r(2) * rat2real(v2)) + rat2real(v3)/r(3))) ∨ (r = (rat2real(v2) + (r(2) * rat2real(v3))/r(3)))
12. v2 ≤ v3
13. v4 ≤ v5
14. ((rat2real(v2) + (r(2) * rat2real(v3))/r(3)) ≤ rat2real(qavg(v2;v3))) 
⇒ (v2 = v3 ∈ ℚ)
⊢ (r = ((r(2) * rat2real(v4)) + rat2real(v5)/r(3))) ∨ (r = (rat2real(v4) + (r(2) * rat2real(v5))/r(3)))
BY
{ (Assert (rat2real(qavg(v2;v3)) ≤ ((r(2) * rat2real(v2)) + rat2real(v3)/r(3))) 
⇒ (v2 = v3 ∈ ℚ) BY
         (ThinVar `r'
          THEN Auto
          THEN (nRMul ⌜r(2)⌝ (-1)⋅ THENA Auto)
          THEN (RWO "rat2real-qavg-2" (-1) THENA Auto)
          THEN (nRMul ⌜r(3)⌝ (-1)⋅ THENA Auto)
          THEN (nRAdd ⌜-((r(3) * rat2real(v2)) + (r(2) * rat2real(v3)))⌝ (-1)⋅ THENA Auto)
          THEN RWO "rleq-rat2real" (-1)
          THEN Auto)) }
1
1. v2 : ℚ
2. v3 : ℚ
3. v4 : ℚ
4. v5 : ℚ
5. r : ℝ
6. ((v4 = v2 ∈ ℚ) ∧ (v5 = qavg(v2;v3) ∈ ℚ)) ∨ ((v4 = qavg(v2;v3) ∈ ℚ) ∧ (v5 = v3 ∈ ℚ))
7. rat2real(v4) ≤ r
8. r ≤ rat2real(v5)
9. rat2real(v2) ≤ r
10. r ≤ rat2real(v3)
11. (r = ((r(2) * rat2real(v2)) + rat2real(v3)/r(3))) ∨ (r = (rat2real(v2) + (r(2) * rat2real(v3))/r(3)))
12. v2 ≤ v3
13. v4 ≤ v5
14. ((rat2real(v2) + (r(2) * rat2real(v3))/r(3)) ≤ rat2real(qavg(v2;v3))) 
⇒ (v2 = v3 ∈ ℚ)
15. (rat2real(qavg(v2;v3)) ≤ ((r(2) * rat2real(v2)) + rat2real(v3)/r(3))) 
⇒ (v2 = v3 ∈ ℚ)
⊢ (r = ((r(2) * rat2real(v4)) + rat2real(v5)/r(3))) ∨ (r = (rat2real(v4) + (r(2) * rat2real(v5))/r(3)))
Latex:
Latex:
1.  v2  :  \mBbbQ{}
2.  v3  :  \mBbbQ{}
3.  v4  :  \mBbbQ{}
4.  v5  :  \mBbbQ{}
5.  r  :  \mBbbR{}
6.  ((v4  =  v2)  \mwedge{}  (v5  =  qavg(v2;v3)))  \mvee{}  ((v4  =  qavg(v2;v3))  \mwedge{}  (v5  =  v3))
7.  rat2real(v4)  \mleq{}  r
8.  r  \mleq{}  rat2real(v5)
9.  rat2real(v2)  \mleq{}  r
10.  r  \mleq{}  rat2real(v3)
11.  (r  =  ((r(2)  *  rat2real(v2))  +  rat2real(v3)/r(3)))
\mvee{}  (r  =  (rat2real(v2)  +  (r(2)  *  rat2real(v3))/r(3)))
12.  v2  \mleq{}  v3
13.  v4  \mleq{}  v5
14.  ((rat2real(v2)  +  (r(2)  *  rat2real(v3))/r(3))  \mleq{}  rat2real(qavg(v2;v3)))  {}\mRightarrow{}  (v2  =  v3)
\mvdash{}  (r  =  ((r(2)  *  rat2real(v4))  +  rat2real(v5)/r(3)))
\mvee{}  (r  =  (rat2real(v4)  +  (r(2)  *  rat2real(v5))/r(3)))
By
Latex:
(Assert  (rat2real(qavg(v2;v3))  \mleq{}  ((r(2)  *  rat2real(v2))  +  rat2real(v3)/r(3)))  {}\mRightarrow{}  (v2  =  v3)  BY
              (ThinVar  `r'
                THEN  Auto
                THEN  (nRMul  \mkleeneopen{}r(2)\mkleeneclose{}  (-1)\mcdot{}  THENA  Auto)
                THEN  (RWO  "rat2real-qavg-2"  (-1)  THENA  Auto)
                THEN  (nRMul  \mkleeneopen{}r(3)\mkleeneclose{}  (-1)\mcdot{}  THENA  Auto)
                THEN  (nRAdd  \mkleeneopen{}-((r(3)  *  rat2real(v2))  +  (r(2)  *  rat2real(v3)))\mkleeneclose{}  (-1)\mcdot{}  THENA  Auto)
                THEN  RWO  "rleq-rat2real"  (-1)
                THEN  Auto))
Home
Index