fact: Fixpoint bblast_bvadd (a b: list carry) (c: carry) : list carry := match a, b with | nil, _ | _, nil => nil | ai :: a', bi :: b' => let c' := (Cor (Cand ai bi) (Cand (Cxor ai bi) c)) in (Cxor (Cxor ai bi) c') :: (bblast_bvadd a' b' c') end.
imports: Int63 PArray SMT_classes ZArith Misc State SMT_terms BVList Psatz Bool List BoolEq NZParity Nnat BinPos BinNat Pnat Init.Peano ProofIrrelevance