fact: Definition bIterFrom {n A} (p c: BITS n) (f: BITS n -> A -> A) x := let (p',r) := bIter c (fun pair : BITS n * A => let (p,r) := pair in (incB p, f p r)) (p,x) in r.
imports: mathcomp.ssreflect.ssreflect mathcomp(ssrfun ssrbool eqtype ssrnat seq tuple) spec