theorem
  u is_distributive_wrt F implies u*(F[:](f,d)) = F[:](u*f,u.d) by Th39;
