for T being non empty TopSpace
for S being SubSpace of T
for B being Basis of T holds { (A /\ ([#] S)) where A is Subset of T : ( A in B & A meets [#] S ) } is Basis of S