reserve n,m for Nat,
  r,r1,r2,s,t for Real,
  x,y for set;

theorem
  for r be Real holds max+(id [#](REAL) - r) is_convex_on REAL by Th59,Th61;
