intuition.
simpl.
rewrite sumList_le.
2:{
intuition.
rewrite H at 1.
eapply leRat_refl.
trivial.
}
rewrite sumList_factor_constant_r.
eapply leRat_trans.
eapply ratMult_leRat_compat.
eapply evalDist_sum_le_1.
eapply leRat_refl.
rewrite ratMult_1_l.
intuition.
Qed.

(* Specifications: *)
Theorem oc_comp_wf :
forall (A B C : Set)(c : OracleComp A B C),
well_formed_oc c ->
forall (S : Set)(eqds : EqDec S)(o : S -> A -> Comp (B * S))(s : S),
(forall a b, well_formed_comp (o a b)) ->
well_formed_comp (c _ _ o s).