---

Step * 1 1 1 1 1 1 of Lemma radd_rcos_wf


1. v : ℕ+ ⟶ ℤ
2. z : ℕ+ ⟶ ℤ
3. ∀n:ℕ+. (|(v n) - z n| ≤ 4)
4. n : ℕ+
5. m : ℕ+
6. |(m * (z n)) - n * (z m)| ≤ ((2 * 1) * (n + m))
⊢ |(m * (v n)) - m * (z n)| ≤ (4 * m)
BY
{ ((Assert |(v n) - z n| ≤ 4 BY
          Auto)
   THEN (Mul ⌜|m|⌝ (-1)⋅ THENA Auto)
   THEN (RWO "absval_mul<" (-1) THENA Auto)
   THEN NthHypSq (-1)
   THEN EqCD
   THEN Auto) }

---

Latex:

---

Latex:

1.  v  :  \mBbbN{}\msupplus{}  {}\mrightarrow{}  \mBbbZ{}
2.  z  :  \mBbbN{}\msupplus{}  {}\mrightarrow{}  \mBbbZ{}
3.  \mforall{}n:\mBbbN{}\msupplus{}.  (|(v  n)  -  z  n|  \mleq{}  4)
4.  n  :  \mBbbN{}\msupplus{}
5.  m  :  \mBbbN{}\msupplus{}
6.  |(m  *  (z  n))  -  n  *  (z  m)|  \mleq{}  ((2  *  1)  *  (n  +  m))
\mvdash{}  |(m  *  (v  n))  -  m  *  (z  n)|  \mleq{}  (4  *  m)


By

---

Latex:
((Assert  |(v  n)  -  z  n|  \mleq{}  4  BY
                Auto)
  THEN  (Mul  \mkleeneopen{}|m|\mkleeneclose{}  (-1)\mcdot{}  THENA  Auto)
  THEN  (RWO  "absval\_mul<"  (-1)  THENA  Auto)
  THEN  NthHypSq  (-1)
  THEN  EqCD
  THEN  Auto)

---

Home Index