---

Step * of Lemma ip-congruent-same

∀[rv:InnerProductSpace]. ∀[a,b,c:Point].  (aa=bc ⇒ b ≡ c)
BY
{ (Auto
   THEN Unfold `ip-congruent` -1
   THEN (Assert a - a ≡ 0 BY
               (RealVecEqual THEN Auto))
   THEN (RWW "-1 rv-norm0" (-2) THENA Auto)) }

1
1. rv : InnerProductSpace
2. a : Point
3. b : Point
4. c : Point
5. r0 = ||b - c||
6. a - a ≡ 0
⊢ b ≡ c

---

Latex:

---

Latex:
\mforall{}[rv:InnerProductSpace].  \mforall{}[a,b,c:Point].    (aa=bc  {}\mRightarrow{}  b  \mequiv{}  c)


By

---

Latex:
(Auto
  THEN  Unfold  `ip-congruent`  -1
  THEN  (Assert  a  -  a  \mequiv{}  0  BY
                          (RealVecEqual  THEN  Auto))
  THEN  (RWW  "-1  rv-norm0"  (-2)  THENA  Auto))

---

Home Index