fact: Definition cal_E M n epsilon (f : encT A M n) m := [set vb | prod_rV (f m, vb) \in `JTS P W n epsilon].
imports: mathcomp(all_ssreflect ssralg ssrnum matrix perm) Reals Lra Classical mathcomp(Rstruct classical_sets) ssrZ ssrR Reals_ext realType_ext logb ssr_ext ssralg_ext bigop_ext fdist proba entropy aep typ_seq joint_typ_seq channel channel_code