reserve p,q for Rational;
reserve g,m,m1,m2,n,n1,n2 for Nat;
reserve i,i1,i2,j,j1,j2 for Integer;

theorem
  numerator(p) = numerator(p) div (numerator(p) gcd denominator(p))
  proof
    p = numerator(p) / denominator(p) by RAT_1:15;
    hence thesis by Th15;
  end;
