proposition: Lemma toZpCons n (p: BITS n) b : toZp [tuple of b :: p] = (b%:R + toZpAux p * 2%:R)%R.
proof: Proof. rewrite /toZp. rewrite toNatCons. rewrite -muln2. rewrite -Zp_nat. rewrite natrD natrM. by rewrite /toZpAux -Zp_nat. Qed.
imports: HB(structures) mathcomp.ssreflect.ssreflect mathcomp(ssrfun ssrbool eqtype ssrnat seq fintype tuple zmodp div) ssrextra.tuple ssrextra.nat spec spec.properties operations mathcomp(ssralg)