intuition.
eapply constant_cost_le.
eapply constant_cost_bind; eauto.
eapply constant_cost_const.
omega.
Qed.

Theorem constant_cost_bind_const1_pair :
forall (A  : Type)(B C: Set)
(f1 : Comp B)(f2 : A -> B -> Comp C) c,
cost (fun p => f2 (fst p) (snd p)) c ->
cost (fun a => Bind f1 (f2 a)) c.