fact: Record type : predArgType := mkType { d :> {fdist A} ; f : {ffun A -> 'I_n.+1} ; d_f : forall a, d a = INR (f a) / INR n }.
imports: mathcomp(all_ssreflect ssralg ssrnum perm) mathcomp(matrix) mathcomp(Rstruct) Reals ssrR Reals_ext realType_ext ssr_ext ssralg_ext logb fdist proba entropy num_occ channel_code channel typ_seq