---

Step * 1 2 1 of Lemma arcsine-shift

.....assertion..... 
1. x : {x:ℝ| x ∈ (r(-1), r1)} 
2. r0 ≤ (r1 - x * x)
3. r0 < x
4. (r1 - x * x) < r1
5. rsqrt(r1 - x * x) < r1
6. rsqrt(r1 - x * x) ∈ {x:ℝ| (r(-1) < x) ∧ (x < r1)} 
7. -(π/2) < (π/2 - arcsine(rsqrt(r1 - x * x)))
⊢ r0 < arcsine(rsqrt(r1 - x * x))
BY
{ (Assert r0 < (r1 - x * x) BY
         (BLemma `arcsine-root-bounds`  THEN Auto)) }

1
1. x : {x:ℝ| x ∈ (r(-1), r1)} 
2. r0 ≤ (r1 - x * x)
3. r0 < x
4. (r1 - x * x) < r1
5. rsqrt(r1 - x * x) < r1
6. rsqrt(r1 - x * x) ∈ {x:ℝ| (r(-1) < x) ∧ (x < r1)} 
7. -(π/2) < (π/2 - arcsine(rsqrt(r1 - x * x)))
8. r0 < (r1 - x * x)
⊢ r0 < arcsine(rsqrt(r1 - x * x))

---

Latex:

---

Latex:
.....assertion..... 
1.  x  :  \{x:\mBbbR{}|  x  \mmember{}  (r(-1),  r1)\} 
2.  r0  \mleq{}  (r1  -  x  *  x)
3.  r0  <  x
4.  (r1  -  x  *  x)  <  r1
5.  rsqrt(r1  -  x  *  x)  <  r1
6.  rsqrt(r1  -  x  *  x)  \mmember{}  \{x:\mBbbR{}|  (r(-1)  <  x)  \mwedge{}  (x  <  r1)\} 
7.  -(\mpi{}/2)  <  (\mpi{}/2  -  arcsine(rsqrt(r1  -  x  *  x)))
\mvdash{}  r0  <  arcsine(rsqrt(r1  -  x  *  x))


By

---

Latex:
(Assert  r0  <  (r1  -  x  *  x)  BY
              (BLemma  `arcsine-root-bounds`    THEN  Auto))

---

Home Index