---

Step * 1 of Lemma rcos-seq-step


1. n : ℕ
⊢ primrec(n + 1;(r(1570796326))/1000000000;λi,x. radd_rcos(x)) = (rcos-seq(n) + rcos(rcos-seq(n)))
BY
{ ((RWO "primrec-unroll" 0 THENA Auto)
   THEN AutoSplit
   THEN (Subst' (n + 1) - 1 ~ n 0 THENA Auto)
   THEN Fold `rcos-seq` 0) }

1
1. n : ℕ
2. n + 1 ≠ 0
⊢ radd_rcos(rcos-seq(n)) = (rcos-seq(n) + rcos(rcos-seq(n)))

---

Latex:

---

Latex:

1.  n  :  \mBbbN{}
\mvdash{}  primrec(n  +  1;(r(1570796326))/1000000000;\mlambda{}i,x.  radd\_rcos(x))  =  (rcos-seq(n)  +  rcos(rcos-seq(n)))


By

---

Latex:
((RWO  "primrec-unroll"  0  THENA  Auto)
  THEN  AutoSplit
  THEN  (Subst'  (n  +  1)  -  1  \msim{}  n  0  THENA  Auto)
  THEN  Fold  `rcos-seq`  0)

---

Home Index