---

Step * of Lemma rv-add-sep-iff

∀rv:InnerProductSpace. ∀a,b,h:Point.  (h + a # h + b ⇐⇒ a # b)
BY
{ ((UnivCD THENA Auto) THEN (Assert h + a - h + b ≡ a - b BY (RealVecEqual THEN Auto))) }

1
1. rv : InnerProductSpace
2. a : Point
3. b : Point
4. h : Point
5. h + a - h + b ≡ a - b
⊢ h + a # h + b ⇐⇒ a # b

---

Latex:

---

Latex:
\mforall{}rv:InnerProductSpace.  \mforall{}a,b,h:Point.    (h  +  a  \#  h  +  b  \mLeftarrow{}{}\mRightarrow{}  a  \#  b)


By

---

Latex:
((UnivCD  THENA  Auto)  THEN  (Assert  h  +  a  -  h  +  b  \mequiv{}  a  -  b  BY  (RealVecEqual  THEN  Auto)))

---

Home Index