Step
*
1
of Lemma
rcos-seq-converges-to-half-pi
.....assertion..... 
π/2(slower) = (λn.eval m = 4 * n in (rcos-seq(exp-ratio(1;3164556962025316455;0;m;1000000000) + 1) m) ÷ 4) ∈ (ℕ+ ⟶ ℤ)
BY
{ (((FunExt THENA Auto) THEN RepUR ``half-pi`` 0) THEN RepeatFor 2 ((CallByValueReduce 0 THENA Auto)) THEN Auto) }
Latex:
Latex:
.....assertion..... 
\mpi{}/2(slower)
=  (\mlambda{}n.eval  m  =  4  *  n  in
            (rcos-seq(exp-ratio(1;3164556962025316455;0;m;1000000000)  +  1)  m)  \mdiv{}  4)
By
Latex:
(((FunExt  THENA  Auto)  THEN  RepUR  ``half-pi``  0)
  THEN  RepeatFor  2  ((CallByValueReduce  0  THENA  Auto))
  THEN  Auto)
Home
Index