proposition: Lemma bind_lunit_applied `{Equiv A} `{Setoid B} `{!Setoid_Morphism (f : A → M B)} (x : A) : ret x ≫= f = f x.
proof: Proof. pose proof (setoidmor_a f). now apply bind_lunit. Qed.
imports: MathClasses.interfaces.abstract_algebra MathClasses.interfaces.monads MathClasses.theory.functors