---

Step * of Lemma ip-between-same

∀[rv:InnerProductSpace]. ∀[a,b:Point].  (a_b_a ⇒ b ≡ a)
BY
{ ((Auto THEN Unfold `ip-between` -1) THEN (RWO "rv-norm-squared< rnexp2<" (-1) THENA Auto)) }

1
1. rv : InnerProductSpace
2. a : Point
3. b : Point
4. (||a - b||^2 + ||a - b||^2) = r0
⊢ b ≡ a

---

Latex:

---

Latex:
\mforall{}[rv:InnerProductSpace].  \mforall{}[a,b:Point].    (a\_b\_a  {}\mRightarrow{}  b  \mequiv{}  a)


By

---

Latex:
((Auto  THEN  Unfold  `ip-between`  -1)  THEN  (RWO  "rv-norm-squared<  rnexp2<"  (-1)  THENA  Auto))

---

Home Index