fact: Fixpoint high n {n2} : BITS (n2+n) -> BITS n := if n2 is _.+1 then fun p => let (p,b) := splitlsb p in high _ p else fun p => p.
imports: Coq(ZArith.ZArith Strings.String) mathcomp.ssreflect.ssreflect mathcomp(ssrfun ssrbool eqtype ssrnat seq fintype tuple zmodp)