proposition: Lemma splitlsbK n : cancel (@splitlsb n) (@joinlsb n).
proof: Proof. case/tupleP => [b p]. by rewrite /splitlsb beheadCons theadCons. 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