---

Step * of Lemma rv-add-minus

∀[rv:RealVectorSpace]. ∀[x:Point].  -x + x ≡ 0
BY
{ (Auto
   THEN (Assert -x + r1*x ≡ 0 BY
               (Unfold `rv-minus` 0 THEN (RWO "rv-mul-add" 0 THENA Auto) THEN nRNorm 0 THEN Auto))
   THEN RWO  "rv-mul1" (-1)
   THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[rv:RealVectorSpace].  \mforall{}[x:Point].    -x  +  x  \mequiv{}  0


By

---

Latex:
(Auto
  THEN  (Assert  -x  +  r1*x  \mequiv{}  0  BY
                          (Unfold  `rv-minus`  0  THEN  (RWO  "rv-mul-add"  0  THENA  Auto)  THEN  nRNorm  0  THEN  Auto))
  THEN  RWO    "rv-mul1"  (-1)
  THEN  Auto)

---

Home Index