proposition: Lemma toZpAux_fromNat n c : toZpAux (m:=n.+1) (fromNat (n:=n.+1) c) = (c%:R)%R.
proof: Proof. apply val_inj. rewrite /toZpAux toNat_fromNat Zp_nat. rewrite /=Zp_cast; last apply pow2_gt1. by rewrite modn_mod. Qed.
imports: Coq(ZArith.ZArith) mathcomp.ssreflect.ssreflect mathcomp(ssrfun ssrbool eqtype ssrnat seq fintype tuple div zmodp ssralg) ssrextra.nat ssrextra.tuple spec.spec