fact: Record t (C : Lcode0.t A n) (M : finType) : Type := mk { repair :> repairT B A n ; repair_img : oimg repair \subset C ; discard : discardT A n M ; dec : decT B M n := [ffun x => omap discard (repair x)] }.
imports: mathcomp(all_ssreflect ssralg poly polydiv fingroup perm) mathcomp(finalg zmodp matrix mxalgebra mxpoly vector) ssr_ext ssralg_ext poly_ext f2 hamming decoding channel_code