proposition: Lemma inordfE : (fun t : T => nat_of_ord (inordf t)) =1 f .
proof: Proof. move=>t. apply: inordK; by apply: leq_bigmax. Qed.
imports: mathcomp(all_ssreflect ssralg ssrnum matrix) Reals mathcomp(Rstruct) ssrR Reals_ext realType_ext logb ssr_ext ssralg_ext bigop_ext fdist proba entropy divergence log_sum source_code