Step
*
1
2
of Lemma
alternating-series-tail-bound
1. x : ℕ ⟶ ℝ
2. M : ℕ
3. ∀n:ℕ. ((M ≤ n) 
⇒ ((r0 ≤ x[n]) ∧ (x[n + 1] ≤ x[n])))
4. lim n→∞.x[n] = r0
5. a : {M...}
6. b : ℕ
7. a ≤ b
8. ∀d,n,m:ℕ.
     ((a ≤ n)
     
⇒ ((m - n) ≤ d)
     
⇒ ((((-1)^n = 1 ∈ ℤ) 
⇒ ((r0 ≤ Σ{r(-1)^i * x[i] | n≤i≤m}) ∧ (Σ{r(-1)^i * x[i] | n≤i≤m} ≤ x[n])))
        ∧ (((-1)^n = (-1) ∈ ℤ) 
⇒ ((-(x[n]) ≤ Σ{r(-1)^i * x[i] | n≤i≤m}) ∧ (Σ{r(-1)^i * x[i] | n≤i≤m} ≤ r0)))))
⊢ |Σ{r(-1)^i * x[i] | a≤i≤b}| ≤ x[a]
BY
{ ((Assert ((-1)^a = 1 ∈ ℤ) ∨ ((-1)^a = (-1) ∈ ℤ) BY
          ((RWO  "exp-minusone" 0 THENA Auto) THEN AutoSplit))
   THEN (InstHyp [⌜b - a⌝;⌜a⌝;⌜b⌝] (-2)⋅ THENA Auto)
   THEN SplitOrHyps
   THEN Auto
   THEN ThinTrivial) }
1
1. x : ℕ ⟶ ℝ
2. M : ℕ
3. ∀n:ℕ. ((M ≤ n) 
⇒ ((r0 ≤ x[n]) ∧ (x[n + 1] ≤ x[n])))
4. lim n→∞.x[n] = r0
5. a : {M...}
6. b : ℕ
7. a ≤ b
8. ∀d,n,m:ℕ.
     ((a ≤ n)
     
⇒ ((m - n) ≤ d)
     
⇒ ((((-1)^n = 1 ∈ ℤ) 
⇒ ((r0 ≤ Σ{r(-1)^i * x[i] | n≤i≤m}) ∧ (Σ{r(-1)^i * x[i] | n≤i≤m} ≤ x[n])))
        ∧ (((-1)^n = (-1) ∈ ℤ) 
⇒ ((-(x[n]) ≤ Σ{r(-1)^i * x[i] | n≤i≤m}) ∧ (Σ{r(-1)^i * x[i] | n≤i≤m} ≤ r0)))))
9. (-1)^a = (-1) ∈ ℤ
10. ((-1)^a = 1 ∈ ℤ) 
⇒ ((r0 ≤ Σ{r(-1)^i * x[i] | a≤i≤b}) ∧ (Σ{r(-1)^i * x[i] | a≤i≤b} ≤ x[a]))
11. -(x[a]) ≤ Σ{r(-1)^i * x[i] | a≤i≤b}
12. Σ{r(-1)^i * x[i] | a≤i≤b} ≤ r0
⊢ |Σ{r(-1)^i * x[i] | a≤i≤b}| ≤ x[a]
Latex:
Latex:
1.  x  :  \mBbbN{}  {}\mrightarrow{}  \mBbbR{}
2.  M  :  \mBbbN{}
3.  \mforall{}n:\mBbbN{}.  ((M  \mleq{}  n)  {}\mRightarrow{}  ((r0  \mleq{}  x[n])  \mwedge{}  (x[n  +  1]  \mleq{}  x[n])))
4.  lim  n\mrightarrow{}\minfty{}.x[n]  =  r0
5.  a  :  \{M...\}
6.  b  :  \mBbbN{}
7.  a  \mleq{}  b
8.  \mforall{}d,n,m:\mBbbN{}.
          ((a  \mleq{}  n)
          {}\mRightarrow{}  ((m  -  n)  \mleq{}  d)
          {}\mRightarrow{}  ((((-1)\^{}n  =  1)  {}\mRightarrow{}  ((r0  \mleq{}  \mSigma{}\{r(-1)\^{}i  *  x[i]  |  n\mleq{}i\mleq{}m\})  \mwedge{}  (\mSigma{}\{r(-1)\^{}i  *  x[i]  |  n\mleq{}i\mleq{}m\}  \mleq{}  x[n])))
                \mwedge{}  (((-1)\^{}n  =  (-1))
                    {}\mRightarrow{}  ((-(x[n])  \mleq{}  \mSigma{}\{r(-1)\^{}i  *  x[i]  |  n\mleq{}i\mleq{}m\})  \mwedge{}  (\mSigma{}\{r(-1)\^{}i  *  x[i]  |  n\mleq{}i\mleq{}m\}  \mleq{}  r0)))))
\mvdash{}  |\mSigma{}\{r(-1)\^{}i  *  x[i]  |  a\mleq{}i\mleq{}b\}|  \mleq{}  x[a]
By
Latex:
((Assert  ((-1)\^{}a  =  1)  \mvee{}  ((-1)\^{}a  =  (-1))  BY
                ((RWO    "exp-minusone"  0  THENA  Auto)  THEN  AutoSplit))
  THEN  (InstHyp  [\mkleeneopen{}b  -  a\mkleeneclose{};\mkleeneopen{}a\mkleeneclose{};\mkleeneopen{}b\mkleeneclose{}]  (-2)\mcdot{}  THENA  Auto)
  THEN  SplitOrHyps
  THEN  Auto
  THEN  ThinTrivial)
Home
Index