theorem
  for X be non empty set for Y be RealLinearSpace holds 0.RealVectSpace(
  X,Y) = X --> 0.Y;
