proposition: Lemma adc0B n (p : BITS n) : adcBmain false #0 p = joinmsb0 p.
proof: Proof. apply toZp_inj. rewrite fromNat0. autorewrite with ZpHom. rewrite /bool_inZp -Zp_nat. by rewrite 2!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)