Definition pow (r : R) (n : nat) := Ring_theory.pow_N 1 mul r (N.of_nat n).

(* Specifications: *)
Lemma pow_not_zero: forall p n, pow p n == 0 -> p == 0.
Lemma Rintegral_domain_pow: forall c p r, ~c == 0 -> c * (pow p r) == ring0 -> p == ring0.