theorem
  f (#) (F ^ G) = (f (#) F) ^ (f (#) G) by VECTSP_6:13;
