fact: Record reo_components := mkREOComponents { reoc_carrier : forall {A}, OrdCat⦅Jprod (M12 A);W A⦆ ; reoc_law1 : forall {A}, reoc_carrier ∙ ofmap Jprod (ord_relmon_unit M12 A) = η A ; reoc_law2 : forall {A B} (f:TypeCatSq⦅A;M12 B⦆), reoc_carrier ∙ ofmap Jprod (ord_relmon_bind M12 f) = actW (θ1 _ ∙ ofmap discr (nfst f)) (θ2 _ ∙ ofmap discr (nsnd f)) (reoc_carrier ∙ ofmap Jprod f) ∙ reoc_carrier }.
imports: Coq(ssreflect ssrfun ssrbool) Coq(FunctionalExtensionality) Coq(Relation_Definitions Morphisms RelationPairs) Mon(SPropBase SPropMonadicStructures) Relational(OrderEnrichedCategory Rel)