theorem Th20:
  numerator(p) = denominator(p) iff p = 1
proof
  hereby
    assume numerator(p)=denominator(p);
    then numerator(p)/denominator(p)=1 by XCMPLX_1:60;
    hence p=1 by Th12;
  end;
  thus thesis;
end;
