intuition.
apply constant_cost_pair_args in H0.
destruct H0.
destruct H0.
intuition.
eapply constant_cost_le.
eapply constant_cost_bind; eauto.
eapply constant_cost_const.
omega.
Qed.

Theorem constant_cost_bind_const2 :
forall (A  : Type)(B C: Set)
(f1 : A -> (Comp B))(f2 : B -> Comp C) c1 c2,
cost f1 c1 ->
cost f2 c2 ->
cost (fun a => Bind (f1 a) f2) (c1 + c2).