fact: Definition bind_left_distributive (add : forall B, M B -> M B -> M B) := forall A B (m1 m2 : M A) (k : A -> M B), (add _ m1 m2) >>= k = add _ (m1 >>= k) (m2 >>= k).
imports: mathcomp(all_ssreflect) mathcomp(boolp) monae_lib HB(structures)