theorem Th98:
  f c= g implies g+*f = g
proof
  assume
A1: f c= g;
  then f tolerates g by PARTFUN1:54;
  hence g+*f = f\/ g by Th30
    .= g by A1,XBOOLE_1:12;
end;
