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