fact: Definition PP_bind : forall A B, PP A -> (A -> PP B) -> PP B := fun A B m f => ⟨ (nfst m /\ forall x, nsnd m x -> nfst (f x)), fun y => exists x, nsnd m x /\ nsnd (f x) y ⟩.
imports: Coq(ssreflect) Coq(Relation_Definitions Morphisms) Mon(SPropBase SPropMonadicStructures Monoid)