fact: Definition RS_repair : repairT F F n := [ffun y => if \RSsynp_(rVexp a n, y, d) == 0 then Some y else let ret := y - poly_rV (RS_err y) in if \RSsynp_(rVexp a n, ret, d) == 0 then Some ret else None].
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