theorem Th17:
  x == y & y infinitely< z implies x infinitely< z
proof
  assume
A1:x==y & y infinitely< z;
  let r be positive Real;
  x*uReal.r == y*uReal.r < z by A1,SURREALR:51;
  hence thesis by SURREALO:4;
end;
