fact: Definition choice_snd_proj : forall {A1 A2 : ord_choiceType}, ord_choiceType ⦅ F_choice_prod (npair A1 A2) ; A2 ⦆.
imports: Mon(SPropBase) Relational(OrderEnrichedCategory OrderEnrichedRelativeMonadExamples) mathcomp(all_ssreflect)