---

Step * of Lemma rv-unit-squared

∀[rv:InnerProductSpace]. ∀[x:Point].  rv-unit(rv;x)^2 = r1 supposing x # 0
BY
{ (Auto THEN GenConclTerm ⌜rv-unit(rv;x)⌝⋅ THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[rv:InnerProductSpace].  \mforall{}[x:Point].    rv-unit(rv;x)\^{}2  =  r1  supposing  x  \#  0


By

---

Latex:
(Auto  THEN  GenConclTerm  \mkleeneopen{}rv-unit(rv;x)\mkleeneclose{}\mcdot{}  THEN  Auto)

---

Home Index