fact: Definition prod_rel : relation (A × B) := relation_conjunction (@RelCompFun (A × B) A relA nfst) (RelCompFun relB nsnd).
imports: Coq(ssreflect ssrfun ssrbool) Coq(FunctionalExtensionality) Coq(Relation_Definitions Morphisms RelationPairs) Mon(SPropBase SPropMonadicStructures) Relational(OrderEnrichedCategory Rel)