fact: Fixpoint ltB {n} : BITS n -> BITS n -> bool := if n is n.+1 then fun p1 p2 => let (q1,b1) := eta_expand (splitlsb p1) in let (q2,b2) := eta_expand (splitlsb p2) in (ltB q1 q2 || ((q1 == q2) && (~~b1) && b2)) else fun p1 p2 => false.
imports: mathcomp.ssreflect.ssreflect mathcomp(ssrfun ssrbool eqtype ssrnat seq tuple) spec