Step * 2 1 1 1 2 1 1 of Lemma implies-ip-triangle


1. rv InnerProductSpace
2. Point
3. a' Point
4. ||a a'|| r0
5. a' a' ≡ 0
⊢ r(-1)*a a' ≡ 0
BY
(RWO "rv-norm-is-zero" (-2) THEN Auto THEN (RWO "-2" THENA Auto) THEN RealVecEqual THEN Auto) }


Latex:


Latex:

1.  rv  :  InnerProductSpace
2.  a  :  Point
3.  a'  :  Point
4.  ||a  -  a'||  =  r0
5.  a'  -  a'  \mequiv{}  0
\mvdash{}  r(-1)*a  -  a'  \mequiv{}  0


By


Latex:
(RWO  "rv-norm-is-zero"  (-2)  THEN  Auto  THEN  (RWO  "-2"  0  THENA  Auto)  THEN  RealVecEqual  THEN  Auto)




Home Index