fact: Definition bindWStr {W : unarySpecMonad} {Γ A B} (wm: Γ ---> W A) (wf : Γ × A ---> W B) : Γ ---> W B := fun γ => (ord_relmon_bind W (to_discr (fun a => wf⟨γ, a⟩)))∙1 (wm γ).
imports: Coq(ssreflect ssrfun ssrbool) Coq(FunctionalExtensionality) Coq(Relation_Definitions Morphisms RelationPairs) Mon(SPropBase SPropMonadicStructures) Relational(OrderEnrichedCategory Rel)