fact: Definition BCH_repair : repairT [finType of 'F_2] [finType of 'F_2] n := [ffun y => if \BCHsynp_(rVexp a n, y, t) == 0 then Some y else let ret := y + poly_rV (BCH_err y) in if \BCHsynp_(rVexp a n, ret, t) == 0 then Some ret else None].
imports: mathcomp(all_ssreflect ssralg poly polydiv finalg zmodp) mathcomp(matrix mxalgebra mxpoly vector fieldext finfield) ssralg_ext hamming linearcode decoding cyclic_code poly_decoding vandermonde dft euclid grs f2