
theorem Th19:
  for V being RealUnitarySpace holds V is Subspace of V
proof
  let V be RealUnitarySpace;
  thus the carrier of V c= the carrier of V & 0.V = 0.V;
  thus thesis by RELSET_1:19;
end;
