fact: Definition P_AR : P_OP -> choiceType := fun op => chElement ( projT1 op ).
imports: mathcomp(all_ssreflect boolp) Relational(OrderEnrichedCategory OrderEnrichedRelativeMonadExamples) Crypt(ChoiceAsOrd choice_type) Crypt(SubDistr)