induction c; intuition; simpl in *.
econstructor.
apply in_nil.
econstructor.
eapply getUnique_NoDup.
eapply getAllBvectors_NoDup.
eapply filter_NoDup.
trivial.
Qed.

(* Specifications: *)
Lemma getSupport_Bind_In : forall (A B : Set) (c : Comp B)(f : B -> Comp A) a,
In a (getSupport (Bind c f)) ->
exists b,
In b (getSupport c) /\
In a (getSupport (f b)).