theorem Th20:
  for r be Real holds r(#)f is Real-Valued-Random-Variable of Sigma
proof
  let r be Real;
  set X = [#]Sigma;
  dom f = X by FUNCT_2:def 1; then
  r(#)f is X-measurable by MESFUNC6:21;
  hence thesis;
end;
