theorem
  v in W implies a * v in W by VECTSP_4:21;
