fact: Definition SP_AR : SP_OP -> choiceType := fun stpOp => match stpOp with |gett => S |putt _ => chUnit |samplee p_op => chElement (projT1 p_op) end.
imports: Coq(Relation_Definitions) Relational(OrderEnrichedCategory OrderEnrichedRelativeMonadExamples) Mon(SPropBase) mathcomp(all_ssreflect ) Crypt(Axioms OrderEnrichedRelativeAdjunctions LaxFunctorsAndTransf LaxMorphismOfRelAdjunctions TransformingLaxMorph OrderEnrichedRelativeAdjunctionsExamples ThetaDex SubDistr Theta_exCP ChoiceAsOrd FreeProbProg UniversalFreeMap RelativeMonadMorph_prod LaxComp choice_type)