fact: Definition join_of_bind (F : functor) (b : forall (A B : UU0), F A -> (A -> F B) -> F B) : F \o F ~~> F := fun A : UU0 => (b _ A)^~ id.
imports: ssrmatching JMeq mathcomp(all_ssreflect) imonae_lib HB(structures)