fact: Definition ord_split (i : 'I_n) : 'I_(n - m + m) := cast_ord (esym (subnK (Hamming.dim_len m'))) i.
imports: mathcomp(all_ssreflect ssralg fingroup finalg perm zmodp) mathcomp(matrix mxalgebra vector) mathcomp(Rstruct) realType_ext ssr_ext ssralg_ext f2 linearcode natbin ssrR hamming bigop_ext fdist proba channel channel_code decoding binary_symmetric_channel