fact: Definition lcode : Lcode.t [finFieldType of 'F_2] [finFieldType of 'F_2] n _ := @Lcode.mk _ _ _ _ _ (Encoder.mk (@Hamming'.encode_inj r') (@Hamming'.enc_img_is_code r')) (Decoder.mk (@hamming_repair_img r') (@Hamming'.discard r')) (@Hamming'.enc_discard_is_id r').
imports: mathcomp(all_ssreflect ssralg fingroup finalg perm zmodp) mathcomp(matrix mxalgebra vector) mathcomp(Rstruct) realType_ext ssr_ext ssralg_ext f2 linearcode natbin ssrR hamming bigop_ext fdist proba channel channel_code decoding binary_symmetric_channel