---

Step * 1 1 of Lemma rsum'-eq-rsum


1. n : ℤ
2. m : ℤ
3. x : {n..m + 1-} ⟶ ℝ
4. (m - n) + 1 < 1
⊢ r0 = radd-list(map(λk.x[k];[n, m + 1))) ∈ (ℕ+ ⟶ ℤ)
BY
{ (RepUR ``radd-list`` 0
   THEN (CallByValueReduce 0 THENA Auto)
   THEN (RWW "length-map length-from-upto" 0 THENA Auto)
   THEN AutoSplit
   THEN (CallByValueReduce 0 THENA Auto)
   THEN AutoSplit
   THEN Auto') }

---

Latex:

---

Latex:

1.  n  :  \mBbbZ{}
2.  m  :  \mBbbZ{}
3.  x  :  \{n..m  +  1\msupminus{}\}  {}\mrightarrow{}  \mBbbR{}
4.  (m  -  n)  +  1  <  1
\mvdash{}  r0  =  radd-list(map(\mlambda{}k.x[k];[n,  m  +  1)))


By

---

Latex:
(RepUR  ``radd-list``  0
  THEN  (CallByValueReduce  0  THENA  Auto)
  THEN  (RWW  "length-map  length-from-upto"  0  THENA  Auto)
  THEN  AutoSplit
  THEN  (CallByValueReduce  0  THENA  Auto)
  THEN  AutoSplit
  THEN  Auto')

---

Home Index