reserve A,B,O for Ordinal,
        o for object,
        x,y,z for Surreal,
        n,m for Nat;
reserve d,d1,d2 for Dyadic;
reserve i,j for Integer,
        n,m,p for Nat;

theorem Th33: :::
  for x1,x2,y1,y2,p1,p2 be Nat st
    x1 + y1 / (2|^p1) < x2 + y2 / (2|^p2) & y1 < 2|^p1 & y2 < 2|^p2
  holds x1 <= x2
proof
  let x1,x2,y1,y2,p1,p2 be Nat such that
A1: x1 + y1 / (2|^p1) < x2 + y2 / (2|^p2) & y1 < 2|^p1 & y2 < 2|^p2
  and
A2: x2 < x1;
A3: x2+1 <= x1 by A2,NAT_1:13;
  0<= y1 / (2|^p1) & y2 / (2|^p2) < 1 by A1,XREAL_1:189;
  then
A4:x1+0<= x1+y1 / (2|^p1) &  x2+y2 / (2|^p2) < x2+1 by XREAL_1:6;
  then x2+y2 / (2|^p2) < x1 by A3,XXREAL_0:2;
  hence thesis by A4,A1,XXREAL_0:2;
end;
