proposition: Lemma droplsb_iter_shrB n count c (p: BITS n) : droplsb (iter count shrB (joinlsb (p, c))) = iter count shrB p.
proof: Proof. induction count => //. + by apply toNat_inj. + rewrite 2!iterS. by rewrite -shrB_droplsb IHcount. 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)