fact: Definition mkRel (A B : Type) (R : A -> B -> Type) : Rel := dpair (fun p => nfst p -> nsnd p -> Type) ⟨A , B⟩ R.
imports: Coq(ssreflect ssrfun ssrbool) Coq(Relation_Definitions Morphisms) Mon(SPropBase) Relational(Category RelativeMonads EnrichedSetting)