theorem
  mlt(F1,F2).s = F1.s * F2.s by VALUED_1:5;
