simple induction n. auto. intros. simpl in |- *. exact H.
Qed.

(* Specifications: *)
Lemma BV_decrement_limit_carry :
forall n : nat, BV_decrement_carry (list_const bool n false) = true.
Lemma BV_increment_adder :
forall v : BV,
appbv (BV_increment v) (consbv (BV_increment_carry v) nilbv) =
BV_full_adder v nilbv true.