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


1. rv InnerProductSpace
2. Point
3. a' Point
4. r0 ||a' a||
5. 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" 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