fact: Definition encode : encT F [finType of 'rV[F]_k] n := [ffun x => x *m 'G].
imports: mathcomp(all_ssreflect ssralg poly polydiv fingroup perm) mathcomp(finalg zmodp matrix mxalgebra mxpoly vector) ssr_ext ssralg_ext poly_ext f2 hamming decoding channel_code