---

Step * 1 4 1 1 1 of Lemma arcsine-bounds2


1. x : {x:ℝ| (r0 < x) ∧ (x < (r(3)/r(4)))} 
2. r(-1) < r0
3. (r(3)/r(4)) < r1
4. x1 : {x:ℝ| x ∈ (r0, (r(3)/r(4)))} 
5. r0 < x1
6. x1 < (r(3)/r(4))
7. ∀t:ℝ. ((t ∈ (r(-1), r1)) ⇒ (r0 < (r1 - t * t)))
8. r0 < (r1 - x1 * x1)
9. r0 < rsqrt(r1 - x1 * x1)
⊢ r0 < ((r1/rsqrt(r1 - x1 * x1)) - r1)
BY
{ (Assert (r1 - x1 * x1) < r1 BY
         ((nRAdd ⌜(x1 * x1) - r1⌝ 0⋅ THEN Auto) THEN BLemma `rmul-is-positive` THEN Auto)) }

1
1. x : {x:ℝ| (r0 < x) ∧ (x < (r(3)/r(4)))} 
2. r(-1) < r0
3. (r(3)/r(4)) < r1
4. x1 : {x:ℝ| x ∈ (r0, (r(3)/r(4)))} 
5. r0 < x1
6. x1 < (r(3)/r(4))
7. ∀t:ℝ. ((t ∈ (r(-1), r1)) ⇒ (r0 < (r1 - t * t)))
8. r0 < (r1 - x1 * x1)
9. r0 < rsqrt(r1 - x1 * x1)
10. (r1 - x1 * x1) < r1
⊢ r0 < ((r1/rsqrt(r1 - x1 * x1)) - r1)

---

Latex:

---

Latex:

1.  x  :  \{x:\mBbbR{}|  (r0  <  x)  \mwedge{}  (x  <  (r(3)/r(4)))\} 
2.  r(-1)  <  r0
3.  (r(3)/r(4))  <  r1
4.  x1  :  \{x:\mBbbR{}|  x  \mmember{}  (r0,  (r(3)/r(4)))\} 
5.  r0  <  x1
6.  x1  <  (r(3)/r(4))
7.  \mforall{}t:\mBbbR{}.  ((t  \mmember{}  (r(-1),  r1))  {}\mRightarrow{}  (r0  <  (r1  -  t  *  t)))
8.  r0  <  (r1  -  x1  *  x1)
9.  r0  <  rsqrt(r1  -  x1  *  x1)
\mvdash{}  r0  <  ((r1/rsqrt(r1  -  x1  *  x1))  -  r1)


By

---

Latex:
(Assert  (r1  -  x1  *  x1)  <  r1  BY
              ((nRAdd  \mkleeneopen{}(x1  *  x1)  -  r1\mkleeneclose{}  0\mcdot{}  THEN  Auto)  THEN  BLemma  `rmul-is-positive`  THEN  Auto))

---

Home Index