Definition getSupport_bind_cp (A B : Set)(c1 : Comp B)(c2 : B -> Comp A) : list (B * A) :=
  flattenPair (getSupport_bind c1 c2).

(* Specifications: *)
Lemma In_getSupport_bind_cp : forall (A B : Set)(c1 : Comp B)(c2 : B -> Comp A) b a, In b (getSupport c1) -> In a (getSupport (c2 b)) -> In (b, a) (getSupport_bind_cp c1 c2).
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)).