theorem
  for V being strict RealLinearSpace holds V in Subspaces(V)
proof
  let V be strict RealLinearSpace;
  (Omega).V in Subspaces(V) by Def3;
  hence thesis;
end;
