fact: Definition Drel_ret A (a : A): Drel_carrier (ret a) := let initCand := (exist _ (@ret M A a) (mrel_ret R a)) in initCand.
imports: Coq(ssreflect ssrfun FunctionalExtensionality) Mon(SPropBase) Coq(Relation_Definitions Morphisms)