proposition: Lemma wH_rs_gen : wH (poly_rV \gen_(a, d) : 'rV[F]_n) <= d.+1.
proof: Proof. by rewrite (leq_trans (wH_poly_rV _ _)) // size_rs_gen. 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