---

Step * of Lemma rcos-shift-pi

∀[x:ℝ]. (rcos(x + π) = -(rcos(x)))
BY
{ (Auto
   THEN (Assert (x + π) = ((x + π/2) + π/2) BY
               (Unfold `pi` 0 THEN (RWO "int-rmul-req" 0 THENA Auto) THEN nRNorm 0 THEN Auto))
   THEN RWW "-1 rsin-shift-half-pi rcos-shift-half-pi" 0
   THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[x:\mBbbR{}].  (rcos(x  +  \mpi{})  =  -(rcos(x)))


By

---

Latex:
(Auto
  THEN  (Assert  (x  +  \mpi{})  =  ((x  +  \mpi{}/2)  +  \mpi{}/2)  BY
                          (Unfold  `pi`  0  THEN  (RWO  "int-rmul-req"  0  THENA  Auto)  THEN  nRNorm  0  THEN  Auto))
  THEN  RWW  "-1  rsin-shift-half-pi  rcos-shift-half-pi"  0
  THEN  Auto)

---

Home Index