Step
*
1
of Lemma
ip-between-same
1. rv : InnerProductSpace
2. a : Point
3. b : Point
4. (||a - b||^2 + ||a - b||^2) = r0
⊢ b ≡ a
BY
{ (Assert ||a - b||^2 = r0 BY
         ((nRMul ⌜r(2)⌝ 0⋅ THENA Auto) THEN nRNorm (-1) THEN Auto)) }
1
1. rv : InnerProductSpace
2. a : Point
3. b : Point
4. (||a - b||^2 + ||a - b||^2) = r0
5. ||a - b||^2 = r0
⊢ b ≡ a
Latex:
Latex:
1.  rv  :  InnerProductSpace
2.  a  :  Point
3.  b  :  Point
4.  (||a  -  b||\^{}2  +  ||a  -  b||\^{}2)  =  r0
\mvdash{}  b  \mequiv{}  a
By
Latex:
(Assert  ||a  -  b||\^{}2  =  r0  BY
              ((nRMul  \mkleeneopen{}r(2)\mkleeneclose{}  0\mcdot{}  THENA  Auto)  THEN  nRNorm  (-1)  THEN  Auto))
Home
Index