theorem
  u is_distributive_wrt F implies u*(F.:(f,f9)) = F.:(u*f,u*f9) by Th37;
