theorem Th2:
  i <= j implies max(0,i-j) = 0
proof
  assume i <= j;
  then i-i <= j-i by XREAL_1:9;
  then -(j-i) <= -0;
  hence thesis by XXREAL_0:def 10;
end;
