fact: Definition alt_hamming_err (y : 'rV_n) : 'rV['F_2]_n := let s : 'rV_m := syndrome (Hamming.PCM m) y in let n0 := nat_of_rV s in if n0 is O then 0 else (\row_(j < n) if n0.-1 == j then 1 else 0).
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