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 Th11:
  numerator(p) = 0 iff p = 0 by XCMPLX_1:6;
