proposition: Fact Op_N_exp_subproof (n : N) (m : nat) : Z_of_N (n ^+ m)%R = (Z_of_N n ^ Z.of_nat m)%Z.
proof: Proof. rewrite -Zpower_nat_Z; elim: m => //= m <-; rewrite exprS; lia. Qed.
imports: Coq(ZArith ZifyClasses ZifyBool) mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq path) mathcomp(div choice fintype tuple finfun bigop finset prime) mathcomp(order binomial ssralg countalg ssrnum ssrint rat) mathcomp(intdiv) mathcomp(zify_ssreflect ssrZ)