proposition: Lemma bv_add_size: forall n a b, (size a) = n -> (@size b) = n -> size (bv_add a b) = n.
proof: Proof. intros n a b H0 H1. unfold bv_add. rewrite H0, H1. rewrite N.eqb_compare. rewrite N.compare_refl. unfold size, bits in *. rewrite <- (@length_add_list_eq a b). auto. now rewrite <- Nat2N.inj_iff, H0. Qed.
imports: List Bool NArith Psatz Int63 Nnat ZArith Misc ProofIrrelevance