fact: Definition splitlsb {n} (p: BITS n.+1): BITS n*bool := (behead_tuple p, thead p).
imports: Coq(ZArith.ZArith Strings.String) mathcomp.ssreflect.ssreflect mathcomp(ssrfun ssrbool eqtype ssrnat seq fintype tuple zmodp)