proposition: Lemma RS_Hchar : ([char F]^').-nat n.
proof: Proof. by rewrite -natf_neq0 -(@dvdn_charf _ q) ?char_GFqm. Qed.
imports: mathcomp(all_ssreflect ssralg finalg poly polydiv cyclic) mathcomp(perm matrix mxpoly vector mxalgebra zmodp) ssr_ext ssralg_ext poly_ext channel_code decoding linearcode hamming dft poly_decoding euclid grs cyclic_code