fact: Definition SDistr_carrier0_preorder A : relation (SDistr_carrier0 A) := fun de1 de2 => pointwise_relation A (fun x y => absord x y) de1 de2.
imports: Coq(Relation_Definitions Morphisms) mathcomp(all_ssreflect all_algebra distr reals realsum) Relational(OrderEnrichedCategory OrderEnrichedRelativeMonadExamples) Crypt(ChoiceAsOrd Axioms)