Step
*
2
1
1
2
1
1
of Lemma
implies-ip-triangle
1. rv : InnerProductSpace
2. a : Point
3. a' : Point
4. r0 = ||a' - a||
5. a - a ≡ 0
⊢ r(-1)*a - a ≡ a' - a
BY
{ ((Assert ||a' - a|| = r0 BY
          Auto)
   THEN RWO "rv-norm-is-zero" (-1)
   THEN Auto
   THEN (RWO "-1" 0 THENA Auto)
   THEN RealVecEqual
   THEN Auto) }
Latex:
Latex:
1.  rv  :  InnerProductSpace
2.  a  :  Point
3.  a'  :  Point
4.  r0  =  ||a'  -  a||
5.  a  -  a  \mequiv{}  0
\mvdash{}  r(-1)*a  -  a  \mequiv{}  a'  -  a
By
Latex:
((Assert  ||a'  -  a||  =  r0  BY
                Auto)
  THEN  RWO  "rv-norm-is-zero"  (-1)
  THEN  Auto
  THEN  (RWO  "-1"  0  THENA  Auto)
  THEN  RealVecEqual
  THEN  Auto)
Home
Index