reserve x for object,
  a,b for Real,
  k,k1,i1,j1,w for Nat,
  m,m1,n,n1 for Integer;
reserve p,q for Rational;

theorem Th10:
  1 >= denominator(p)"
proof
  1*denominator(p)"<=denominator(p)*denominator(p)" by Th8,XREAL_1:64;
  hence thesis by XCMPLX_0:def 7;
end;
