intuition.
unfold getSupport_bind_cp, getSupport_bind.
eapply in_flattenPair.
eapply in_map_iff.
econstructor; intuition.
trivial.
Qed.

(* Specifications: *)
Lemma not_In_getSupport_bind_cp : forall (A B : Set)(eqda : eq_dec A)(eqdb : eq_dec B)(c1 : Comp B)(c2 : B -> Comp A) b a,
~ In (b, a) (getSupport_bind_cp c1 c2) ->
~ In b (getSupport c1) \/
~ In a (getSupport (c2 b)).