
theorem
  for X be non empty set, S be SigmaField of X, M be sigma_Measure of S,
f be PartFunc of X,REAL, E be Element of S, a be Real st f is_integrable_on M &
  E c= dom f & M.E < +infty & (for x be Element of X st x in E holds f.x <= a)
  holds Integral(M,f|E) <=(a qua ExtReal)*M.E
by Th3;
