fact: Definition binaryToTheS : ord_functor TypeCat_squ TypeCat_squ := prod_functor (ToTheS S1) (ToTheS S2).
imports: Coq(Morphisms) mathcomp(all_algebra all_ssreflect boolp) Mon(SPropBase Base) Relational(OrderEnrichedCategory OrderEnrichedRelativeMonadExamples) Crypt(OrderEnrichedRelativeAdjunctions FreeProbProg ChoiceAsOrd Couplings Theta_exCP SubDistr)