reserve Z for set;

theorem Th7:
  for A be non empty closed_interval Subset of REAL, f being Function of A,
  REAL, T being DivSequence of A, e be Element of REAL st 0 < e & f|A is
  bounded_below holds ex S be middle_volume_Sequence of f,T st for i be Element
  of NAT holds (middle_sum(f,S)).i <= (lower_sum(f,T)).i + e
proof
  let A be non empty closed_interval Subset of REAL,
  f being Function of A,REAL, T being
  DivSequence of A, e be Element of REAL;
  defpred P[Element of NAT,set ] means $2 is middle_volume of f,T.$1 & ex z be
  middle_volume of f,T.$1 st z=$2 & middle_sum(f,z) <= lower_sum(f,T.$1) + e;
  assume
A1: 0 < e & f|A is bounded_below;
A2: for x being Element of NAT ex y being Element of (REAL)* st P[x, y]
  proof
    let x be Element of NAT;
    consider z be middle_volume of f,T.x such that
A3: middle_sum(f,z) <= lower_sum (f,T.x) + e by A1,Th3;
    reconsider y=z as Element of (REAL)* by FINSEQ_1:def 11;
    take y;
    thus thesis by A3;
  end;
  consider F being sequence of  (REAL)* such that
A4: for x being Element of NAT holds P[x, F.x] from FUNCT_2:sch 3(A2);
  reconsider F as middle_volume_Sequence of f,T by A4,Def3;
  now
    let x being Element of NAT;
    ex z be middle_volume of f,T.x st z=F.x & middle_sum(f,z) <= lower_sum
    (f,T.x) + e by A4;
    then (middle_sum(f,F)).x <= lower_sum(f,T.x) + e by Def4;
    hence (middle_sum(f,F)).x <= (lower_sum(f,T)).x + e by INTEGRA2:def 3;
  end;
  hence thesis;
end;
