fact: Definition ExnSpecCarrier : Type -> Type := fun X => { f : (X -> Prop) -> (E -> Prop) -> Prop | Proper ((pointwise_relation X SProp_op_order) ==> (pointwise_relation E SProp_op_order) ==> SProp_op_order) f}.
imports: Coq(ssreflect) Coq(Relation_Definitions Morphisms) Mon(SPropBase SPropMonadicStructures Monoid)