theorem
  for x being Element of X holds 0 <= (max-f).x
proof
  let x be Element of X;
  0. <= (max-(R_EAL f)).x by MESFUNC2:13;
  hence thesis by Th30;
end;
