Step
*
of Lemma
rv-mul-add-alt
∀[rv:RealVectorSpace]. ∀[a,b:ℝ]. ∀[x,u:Point].  u + a*x + b*x ≡ u + a + b*x
BY
{ (Auto THEN (RWO "rv-add-assoc<" 0 THENA Auto) THEN BLemma `rv-add_functionality` THEN Auto) }
Latex:
Latex:
\mforall{}[rv:RealVectorSpace].  \mforall{}[a,b:\mBbbR{}].  \mforall{}[x,u:Point].    u  +  a*x  +  b*x  \mequiv{}  u  +  a  +  b*x
By
Latex:
(Auto  THEN  (RWO  "rv-add-assoc<"  0  THENA  Auto)  THEN  BLemma  `rv-add\_functionality`  THEN  Auto)
Home
Index