theorem Th50:
  i>=i1 implies i>=i1-'i2
proof
  assume
A1: i>=i1;
  i1>=i1-'i2 by Th35;
  hence thesis by A1,XXREAL_0:2;
end;
