induction n; intuition; simpl in *.
rewrite app_length.
repeat rewrite map_length.
rewrite <- plus_0_r.
eapply gt_trans.
eapply plus_gt_compat_l.
apply IHn.
repeat rewrite plus_0_r.
apply IHn.
Qed.

(* Specifications: *)
Theorem in_getAllBvectors : forall (n : nat)(v : Bvector n),
In v (getAllBvectors n).