proposition: Lemma join_as_bind_applied `{Setoid A} (m : M (M A)) : join m = m ≫= id.
proof: Proof. now apply join_as_bind. Qed.
imports: MathClasses.interfaces.abstract_algebra MathClasses.interfaces.monads MathClasses.theory.functors