induction ls; intuition; simpl in *.
unfold sumList; simpl.
eapply refl.
eapply ratMult_0_l.
eapply trans.
eapply refl.
eapply eqRat_trans.
eapply ratMult_eqRat_compat.
eapply sumList_cons.
eapply eqRat_refl.
eapply ratMult_distrib_r.
eapply trans.
2:{
eapply refl.
symmetry.
eapply sumList_cons.
}
simpl.
eapply add_proper.
eapply refl.
intuition.
eapply IHls; intuition.
Qed.

Theorem evalDist_irr_r :
forall (A B : Set)(c : Comp A)(f : A -> Comp B)(y : B) rel v,
RatRel rel ->
well_formed_comp c ->
(forall x, In x (getSupport c) -> rel v (evalDist (f x) y)) ->
rel v (evalDist (Bind c f) y).