 reserve Exx for Real;
 reserve Omega,Omega2 for non empty set;
 reserve Sigma for SigmaField of Omega;
 reserve Sigma2 for SigmaField of Omega2;
 reserve X,Y,Z for Function of Omega,REAL;

theorem T1:
  for Omega be non empty set
  for F be SigmaField of Omega
  for k be Element of set_of_random_variables_on(F,Borel_Sets) holds
   ElementsOfPortfolioValueProb_fut(F,k) is
    random_variable of F,Borel_Sets
  proof
  let Omega be non empty set;
  let F be SigmaField of Omega;
  let k be Element of set_of_random_variables_on(F,Borel_Sets);
  ElementsOfPortfolioValueProb_fut(F,k) =
  Change_Element_to_Func(F,Borel_Sets,k) by FINANCE1:def 8;
  hence thesis by T;
end;
