---

Step * 1 1 of Lemma rv-perp-1


1. rv : InnerProductSpace
2. x : Point(rv)
3. x # 0
4. y : Point(rv)
5. y # 0
6. x ⋅ y = r0
7. rv-unit(rv;y)^2 = r1
⊢ x ⋅ rv-unit(rv;y) = r0
BY
{ ((InstLemma `rv-unit-property` [⌜rv⌝;⌜y⌝]⋅ THENM ExRepD) THENA Auto) }

1
1. rv : InnerProductSpace
2. x : Point(rv)
3. x # 0
4. y : Point(rv)
5. y # 0
6. x ⋅ y = r0
7. rv-unit(rv;y)^2 = r1
8. t : ℝ
9. t ≠ r0
10. rv-unit(rv;y) ≡ t*y
⊢ x ⋅ rv-unit(rv;y) = r0

---

Latex:

---

Latex:

1.  rv  :  InnerProductSpace
2.  x  :  Point(rv)
3.  x  \#  0
4.  y  :  Point(rv)
5.  y  \#  0
6.  x  \mcdot{}  y  =  r0
7.  rv-unit(rv;y)\^{}2  =  r1
\mvdash{}  x  \mcdot{}  rv-unit(rv;y)  =  r0


By

---

Latex:
((InstLemma  `rv-unit-property`  [\mkleeneopen{}rv\mkleeneclose{};\mkleeneopen{}y\mkleeneclose{}]\mcdot{}  THENM  ExRepD)  THENA  Auto)

---

Home Index