fact: Definition jtype_eq A B n (t1 t2 : P_ n ( A , B )) := match t1, t2 with | JType.mk _ f1 _ _, JType.mk _ f2 _ _ => f1 == f2 end.
imports: mathcomp(all_ssreflect ssralg ssrnum fingroup perm) Reals mathcomp(Rstruct) ssrR Reals_ext realType_ext ssr_ext ssralg_ext logb fdist entropy num_occ channel types