proposition: Lemma rank_GEN : \rank 'G = k.
proof: Proof. rewrite /GEN mxrank_castmx; by apply rank_row_mx, rank_I. Qed.
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