( ( r -' s = r - s & r - s >= 0 ) or r -' s = 0 ) by Def2;
hence for b1 being Real st b1 = r -' s holds
not b1 is negative by XXREAL_0:def 7; :: thesis: verum