Proof gen_phiZ_complete Rset Rext Rfield Rgen_phiPOS_not_0.

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.