fact: Definition thetaDex := rlmm_comp _ _ _ _ _ _ _ ltheta_dens θ_morph.
imports: Relational(OrderEnrichedCategory OrderEnrichedRelativeMonadExamples) Crypt(Theta_dens Theta_exCP SubDistr LaxComp ChoiceAsOrd RelativeMonadMorph_prod) mathcomp(all_ssreflect)