fact: Definition kind_eq_bool (k1 k2 : kind) : bool := match k1, k2 with | kv, kv => true | kf, kf => true | _, _ => false end.
imports: mathcomp(all_ssreflect ssralg fingroup zmodp poly ssrnum) mathcomp(matrix perm) ssr_ext ssralg_ext fdist