---

Step * 1 1 2 1 1 2 1 of Lemma near-arcsine-exists

.....assertion..... 
1. N : ℕ+
2. a : ℝ
3. (r0 < a) ∧ (a < r1)
4. (r(73))/100 < a
5. r(-1) < r0
6. arcsine(a) ∈ ℝ
7. arcsine(a) = (π/2 - arcsine(rsqrt(r1 - a * a)))
8. (r0 < (r1 - a * a)) ∧ ((r1 - a * a) < (r(9)/r(16)))
⊢ (r0 < rsqrt(r1 - a * a)) ∧ (rsqrt(r1 - a * a) < (r(3)/r(4)))
BY
{ (ParallelLast THEN (FLemma `rsqrt_functionality_wrt_rless` [-1] THENA Auto) THEN RWW  "rsqrt0" (-1) THEN Auto) }

1
1. N : ℕ+
2. a : ℝ
3. r0 < a
4. a < r1
5. (r(73))/100 < a
6. r(-1) < r0
7. arcsine(a) ∈ ℝ
8. arcsine(a) = (π/2 - arcsine(rsqrt(r1 - a * a)))
9. r0 < (r1 - a * a)
10. (r1 - a * a) < (r(9)/r(16))
11. rsqrt(r1 - a * a) < rsqrt((r(9)/r(16)))
⊢ rsqrt(r1 - a * a) < (r(3)/r(4))

---

Latex:

---

Latex:
.....assertion..... 
1.  N  :  \mBbbN{}\msupplus{}
2.  a  :  \mBbbR{}
3.  (r0  <  a)  \mwedge{}  (a  <  r1)
4.  (r(73))/100  <  a
5.  r(-1)  <  r0
6.  arcsine(a)  \mmember{}  \mBbbR{}
7.  arcsine(a)  =  (\mpi{}/2  -  arcsine(rsqrt(r1  -  a  *  a)))
8.  (r0  <  (r1  -  a  *  a))  \mwedge{}  ((r1  -  a  *  a)  <  (r(9)/r(16)))
\mvdash{}  (r0  <  rsqrt(r1  -  a  *  a))  \mwedge{}  (rsqrt(r1  -  a  *  a)  <  (r(3)/r(4)))


By

---

Latex:
(ParallelLast
  THEN  (FLemma  `rsqrt\_functionality\_wrt\_rless`  [-1]  THENA  Auto)
  THEN  RWW    "rsqrt0"  (-1)
  THEN  Auto)

---

Home Index