theorem Th13: :: ANALMETR:13

for V being RealLinearSpace
for u, v, w, y being VECTOR of V st Gen w,y & u <> 0. V holds
ex a being Real st v - (a * u),u are_Ort_wrt w,y