---

Step * of Lemma rcos-arcsin

∀[a:{a:ℝ| a ∈ [r(-1), r1]} ]. (rcos(arcsin(a)) = rsqrt(r1 - a * a))
BY
{ (Intro
   THEN (Assert r0 ≤ (r1 - a * a) BY
               (nRAdd ⌜a * a⌝ 0⋅
                THEN Auto
                THEN D -1
                THEN (Unhide THENA Auto)
                THEN Reduce -1
                THEN RWW "rnexp2< square-rleq-1-iff rabs-rleq-iff" 0
                THEN Auto))
   THEN (Unhide THENA Auto)
   THEN (GenConclTerm ⌜arcsin(a)⌝⋅ THENA Auto)
   THEN Thin (-1)
   THEN D -1
   THEN (Unhide THENA Auto)
   THEN (InstLemma `rsin-rcos-pythag` [⌜v⌝]⋅ THENA Auto)
   THEN (InstLemma `rcos-nonneg` [⌜v⌝]⋅ THENA Auto)
   THEN BLemma `rsqrt-unique`
   THEN Auto) }

1
1. a : {a:ℝ| a ∈ [r(-1), r1]} 
2. r0 ≤ (r1 - a * a)
3. v : ℝ
4. v ∈ [-(π/2), π/2]
5. rsin(v) = a
6. (rsin(v)^2 + rcos(v)^2) = r1
7. r0 ≤ rcos(v)
⊢ (rcos(v) * rcos(v)) = (r1 - a * a)

---

Latex:

---

Latex:
\mforall{}[a:\{a:\mBbbR{}|  a  \mmember{}  [r(-1),  r1]\}  ].  (rcos(arcsin(a))  =  rsqrt(r1  -  a  *  a))


By

---

Latex:
(Intro
  THEN  (Assert  r0  \mleq{}  (r1  -  a  *  a)  BY
                          (nRAdd  \mkleeneopen{}a  *  a\mkleeneclose{}  0\mcdot{}
                            THEN  Auto
                            THEN  D  -1
                            THEN  (Unhide  THENA  Auto)
                            THEN  Reduce  -1
                            THEN  RWW  "rnexp2<  square-rleq-1-iff  rabs-rleq-iff"  0
                            THEN  Auto))
  THEN  (Unhide  THENA  Auto)
  THEN  (GenConclTerm  \mkleeneopen{}arcsin(a)\mkleeneclose{}\mcdot{}  THENA  Auto)
  THEN  Thin  (-1)
  THEN  D  -1
  THEN  (Unhide  THENA  Auto)
  THEN  (InstLemma  `rsin-rcos-pythag`  [\mkleeneopen{}v\mkleeneclose{}]\mcdot{}  THENA  Auto)
  THEN  (InstLemma  `rcos-nonneg`  [\mkleeneopen{}v\mkleeneclose{}]\mcdot{}  THENA  Auto)
  THEN  BLemma  `rsqrt-unique`
  THEN  Auto)

---

Home Index