theorem
  u is_distributive_wrt F implies u*(F.:(T1,T2)) = F.:(u*T1,u*T2) by Th48;
