reserve a,b,r,x,y for Real,
  i,j,k,n for Nat,
  x1 for set;
reserve A, B for non empty closed_interval Subset of REAL;
reserve f, g for Function of A,REAL;
reserve D, D1, D2 for Division of A;

theorem Th27:
  f|A is bounded_above & r >= 0 implies upper_sum(r(#)f,D) = r*
  upper_sum(f,D)
proof
  assume
A1: f|A is bounded_above & r >= 0;
A2: for i be Nat st 1 <= i & i <= len upper_volume(r(#)f,D) holds
  upper_volume(r(#)f,D).i = (r*upper_volume(f,D)).i
  proof
    let i be Nat;
    assume
A3: 1 <= i & i <= len upper_volume(r(#)f,D);
    len D = len upper_volume(r(#)f,D) by INTEGRA1:def 6;
    then i in dom D by A3,FINSEQ_3:25;
    then upper_volume(r(#)f,D).i = r*upper_volume(f,D).i by A1,Th23
      .= (r*upper_volume(f,D)).i by RVSUM_1:44;
    hence thesis;
  end;
  len upper_volume(r(#)f,D) = len D by INTEGRA1:def 6
    .= len upper_volume(f,D) by INTEGRA1:def 6
    .= len(r*upper_volume(f,D)) by NEWTON:2;
  then upper_volume(r(#)f,D)=r*upper_volume(f,D) by A2,FINSEQ_1:14;
  then upper_sum(r(#)f,D) =Sum(r*upper_volume(f,D)) by INTEGRA1:def 8
    .=r*Sum(upper_volume(f,D)) by RVSUM_1:87
    .=r*upper_sum(f,D) by INTEGRA1:def 8;
  hence thesis;
end;
