fact: Definition bind : forall A B, acto A -> (A -> acto B) -> acto B := fun A B m f => (m >>= f)%fsdist.
imports: Reals mathcomp(all_ssreflect ssralg ssrnum) mathcomp(reals Rstruct) infotheo(Reals_ext realType_ext ssr_ext fsdist) infotheo(convex) HB(structures) monae_lib hierarchy monad_lib proba_lib