let a, b, c be Real; :: thesis: ( 0 <= a & b < c implies b - a < c )
assume ( 0 <= a & b < c ) ; :: thesis: b - a < c
then 0 + b < a + c by Th40;
hence b - a < c by Lm17; :: thesis: verum