reserve f,f1,f2,g for PartFunc of REAL,REAL;
reserve A for non empty closed_interval Subset of REAL;
reserve p,r,x,x0 for Real;
reserve n for Element of NAT;
reserve Z for open Subset of REAL;

theorem
  integral(r(#)exp_R,A) = r*exp_R.(upper_bound A) - r*exp_R.(lower_bound A)
proof
  (exp_R)|A is bounded & [#]REAL is open Subset of REAL by Lm8,INTEGRA5:10;
  hence thesis by Lm8,Th32,Th68,INTEGRA5:11,SIN_COS:66;
end;
