---

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