:: deftheorem Def4 defines Ort_Comp RUSUB_5:def 4 :
for V being RealUnitarySpace
for M being non empty Subset of V
for b₃ being strict Subspace of V holds
( b₃ = Ort_Comp M iff the carrier of b₃ = { v where v is VECTOR of V : for w being VECTOR of V st w in M holds
w,v are_orthogonal } );