---

Step * 1 1 of Lemma approx-ball-to-ball_wf


1. n : ℕ
2. k : ℕ+
3. s : ℕn ⟶ {-k..k + 1-}
4. Σ((s i) * (s i) | i < n) ≤ (k * k)
⊢ Σ{(r(s i)/r(k)) * (r(s i)/r(k)) | 0≤i≤n - 1} ≤ r1
BY
{ (Assert Σ{r(s i) * r(s i) | 0≤i≤n - 1} ≤ r(k * k) BY
         ((RWO "rmul-int" 0 THENA Auto) THEN (RWO "rsum_int" 0 THENA Auto) THEN BLemma `rleq-int` THEN Auto)) }

1
1. n : ℕ
2. k : ℕ+
3. s : ℕn ⟶ {-k..k + 1-}
4. Σ((s i) * (s i) | i < n) ≤ (k * k)
5. Σ{r(s i) * r(s i) | 0≤i≤n - 1} ≤ r(k * k)
⊢ Σ{(r(s i)/r(k)) * (r(s i)/r(k)) | 0≤i≤n - 1} ≤ r1

---

Latex:

---

Latex:

1.  n  :  \mBbbN{}
2.  k  :  \mBbbN{}\msupplus{}
3.  s  :  \mBbbN{}n  {}\mrightarrow{}  \{-k..k  +  1\msupminus{}\}
4.  \mSigma{}((s  i)  *  (s  i)  |  i  <  n)  \mleq{}  (k  *  k)
\mvdash{}  \mSigma{}\{(r(s  i)/r(k))  *  (r(s  i)/r(k))  |  0\mleq{}i\mleq{}n  -  1\}  \mleq{}  r1


By

---

Latex:
(Assert  \mSigma{}\{r(s  i)  *  r(s  i)  |  0\mleq{}i\mleq{}n  -  1\}  \mleq{}  r(k  *  k)  BY
              ((RWO  "rmul-int"  0  THENA  Auto)
                THEN  (RWO  "rsum\_int"  0  THENA  Auto)
                THEN  BLemma  `rleq-int`
                THEN  Auto))

---

Home Index