fact: Definition Sum (s : seq letter) := if has starblank s then Star else Bit (sum_letter (filter is_Bit s)).
imports: mathcomp(all_ssreflect ssralg fingroup finalg perm zmodp) mathcomp(matrix) ssr_ext ssralg_ext num_occ f2 ssrR hamming tanner linearcode