proposition: Lemma adcB0 n (p : BITS n) : adcBmain false p #0 = joinmsb0 p.
proof: Proof. apply toZp_inj. rewrite fromNat0. autorewrite with ZpHom. by rewrite /bool_inZp addr0 -!Zp_nat add0r. Qed.
imports: HB(structures) mathcomp.ssreflect.ssreflect mathcomp(ssrfun ssrbool eqtype ssrnat seq fintype tuple zmodp div) ssrextra.tuple ssrextra.nat spec spec.properties operations mathcomp(ssralg)