theorem
  mlt(<*>REAL,F) = <*>REAL
proof
  F is FinSequence of REAL by Lm2;
  hence thesis by FINSEQ_2:73;
end;
