Step
*
2
1
1
1
2
1
1
of Lemma
implies-ip-triangle
1. rv : InnerProductSpace
2. a : 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" 0 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