 reserve Omega for non empty set;
 reserve F for SigmaField of Omega;

theorem TH1:
  for RV being random_variable of F,Borel_Sets,
      K being Real holds
    (Omega-->K)-RV is random_variable of F,Borel_Sets
proof
  let RV be random_variable of F,Borel_Sets, K be Real;
  reconsider K as Element of REAL by XREAL_0:def 1;
  Omega-->K is random_variable of F,Borel_Sets by FINANCE3:10;
  hence thesis by FINANCE2:24;
end;
