theorem
  dom F = dom (a*F) by VALUED_1:def 5;
