---

Step * 3 1 1 of Lemma rv-midpoint-unique


1. rv : InnerProductSpace
2. a : Point(rv)
3. b : Point(rv)
4. m : Point(rv)
5. m ≡ (r1/r(2))*a + b
6. (||a - b||/r(2)) = ||(r1/r(2))*a - b||
⊢ (r1/r(2))*a + (r1/r(2))*b + r(-1)*b ≡ (r1/r(2))*a + (r1/r(2)) * r(-1)*b
BY
{ (RealVecEqual THEN Auto) }

---

Latex:

---

Latex:

1.  rv  :  InnerProductSpace
2.  a  :  Point(rv)
3.  b  :  Point(rv)
4.  m  :  Point(rv)
5.  m  \mequiv{}  (r1/r(2))*a  +  b
6.  (||a  -  b||/r(2))  =  ||(r1/r(2))*a  -  b||
\mvdash{}  (r1/r(2))*a  +  (r1/r(2))*b  +  r(-1)*b  \mequiv{}  (r1/r(2))*a  +  (r1/r(2))  *  r(-1)*b


By

---

Latex:
(RealVecEqual  THEN  Auto)

---

Home Index