fact: Definition hamming_err y := let i := nat_of_rV (syndrome (Hamming.PCM m) y) in if i is O then 0 else rV_of_nat n (2 ^ (n - i)).
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