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