fact: Definition to_rel_one X : RelCat⦅X;rel_one⦆ := dpair _ ⟨fun=> tt, fun=> tt⟩ (fun _ _ _=> tt).
imports: Coq(ssreflect ssrfun ssrbool) Coq(Relation_Definitions Morphisms) Mon(SPropBase) Relational(Category RelativeMonads EnrichedSetting)