fact: Definition RS_as_lcode (an1 : a ^+ n = 1) (Hchar : ([char F]^').-nat n) : Lcode.t _ _ _ [finType of 'rV_(n - d.+1).+1] := @Lcode.mk _ _ _ _ _ (Encoder.mk RS_enc_injective RS_enc_img) (Decoder.mk (RS_repair_img an1 Hchar) RS_discard) RS_enc_discard_is_id.
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