proposition: Lemma PPSpec_ran_valid : bind w PPSpec_ran ≤[PPSpecMonad] w'.
proof: Proof. cbv ; split. intuition. move=> b [a [? ?]] ; intuition. Qed.
imports: Coq(ssreflect) Coq(Relation_Definitions Morphisms) Mon(SPropBase SPropMonadicStructures Monoid)