Proof gen_phiZ_complete Rset Rext Rfield Rgen_phiPOS_not_0.

(* Specifications: *)
Lemma Rdef_pow_add : forall (x:R) (n m:nat), pow x  (n + m) = pow x n * pow x m.
Lemma R_power_theory : power_theory 1%R Rmult (@eq R) N.to_nat pow.
Ltac Rpow_tac t :=
match isnatcst t with
| false => constr:(InitialRing.NotConstant)
| _ => constr:(N.of_nat t)
end.