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