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