fact: Definition RS_err y : {poly F} := let r0 : {poly F} := 'X^d in let r1 := \RSsynp_(rVexp a n, y, d) in let vstop := v r0 r1 (stop (odd d + t) r0 r1) in let rstop := r r0 r1 (stop (odd d + t) r0 r1) in let s := vstop.[0]^-1 *: vstop in let w := vstop.[0]^-1 *: rstop in \poly_(i < n) (if s.[a^- i] == 0 then - w.[a ^- i] / s^`().[a ^- i] else 0).
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