fact: Definition ran := { ext : B -> W C | bind p ext ≤[W] f /\ forall (w' : B -> W C), bind p w' ≤[W] f -> forall b, w' b ≤[W] ext b }.
imports: Coq(ssreflect ssrfun FunctionalExtensionality) Mon(SPropBase) Coq(Relation_Definitions Morphisms)