fact: Definition F_choice_prod_morph : forall T1 T2 : (prod_cat ord_choiceType ord_choiceType), (prod_cat ord_choiceType ord_choiceType) ⦅ T1; T2 ⦆ -> ord_choiceType ⦅F_choice_prod_obj T1; F_choice_prod_obj T2 ⦆.
imports: Mon(SPropBase) Relational(OrderEnrichedCategory OrderEnrichedRelativeMonadExamples) mathcomp(all_ssreflect)