---

Step * of Lemma rminus-as-rmul

∀[r:ℝ]. (-(r) = (r(-1) * r))
BY
{ (Auto
   THEN BLemma `req-iff-bdd-diff` 
   THEN Auto
   THEN (RWO "rmul-bdd-diff-reg-seq-mul" 0 THENA Auto)
   THEN With ⌜0⌝ (D 0)⋅
   THEN Auto
   THEN RepUR ``rminus reg-seq-mul int-to-real`` 0) }

1
1. r : ℝ
2. n : ℕ+@i
⊢ |(-(r n)) - ((2 * n * (-1)) * (r n)) ÷ 2 * n| ≤ 0

---

Latex:

---

Latex:
\mforall{}[r:\mBbbR{}].  (-(r)  =  (r(-1)  *  r))


By

---

Latex:
(Auto
  THEN  BLemma  `req-iff-bdd-diff` 
  THEN  Auto
  THEN  (RWO  "rmul-bdd-diff-reg-seq-mul"  0  THENA  Auto)
  THEN  With  \mkleeneopen{}0\mkleeneclose{}  (D  0)\mcdot{}
  THEN  Auto
  THEN  RepUR  ``rminus  reg-seq-mul  int-to-real``  0)

---

Home Index