theorem Th26:
  for h be PartFunc of S,T for seq be sequence of S for r be Real
  holds h is total implies (r(#)h)/*seq = r*(h/*seq)
proof
  let h be PartFunc of S,T;
  let seq be sequence of S;
  let r be Real;
  assume h is total;
  then dom h = the carrier of S by PARTFUN1:def 2;
  then rng seq c= dom h;
  hence thesis by NFCONT_1:13;
end;
