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 Th39;
  hence thesis by Lm17;
end;
