Step * of Lemma vs-subtract-self

[K:Rng]. ∀[vs:VectorSpace(K)]. ∀[x:Point(vs)].  ((x x) 0 ∈ Point(vs))
BY
(Auto
   THEN (Assert -K 0 ∈ Point(vs) BY
               ((RWO "vs-mul-add<THENA Auto) THEN RW RngNormC THEN Auto))
   THEN NthHypEqTrans (-1)) }

1
.....assertion..... 
1. Rng
2. vs VectorSpace(K)
3. Point(vs)
4. -K 0 ∈ Point(vs)
⊢ -K (x x) ∈ Point(vs)


Latex:


Latex:
\mforall{}[K:Rng].  \mforall{}[vs:VectorSpace(K)].  \mforall{}[x:Point(vs)].    ((x  -  x)  =  0)


By


Latex:
(Auto
  THEN  (Assert  1  *  x  +  -K  1  *  x  =  0  BY
                          ((RWO  "vs-mul-add<"  0  THENA  Auto)  THEN  RW  RngNormC  0  THEN  Auto))
  THEN  NthHypEqTrans  (-1))




Home Index