simple induction n. simpl in |- *. auto. intros. simpl in |- *. rewrite H; trivial.
Qed.

(* Specifications: *)
Lemma BV_decrement_limit :
forall n : nat,
BV_decrement (list_const bool n false) = list_const bool n true.
Lemma BV_increment_limit_carry :
forall n : nat, BV_increment_carry (list_const bool n true) = true.