reserve a,b,c,d for Real;
reserve r,s for Real;
reserve p,q,r,s,t for ExtReal;

theorem
  0 <= a & b <= c implies b-a <= c
proof
  assume 0 <= a & b <= c;
  then b+0 <= a+c by Th38;
  hence thesis by Lm18;
end;
