fact: Definition alpha_op (out inp : R2) := let (o,o') := out in let (i,i') := inp in (o*i + o'*i', o*i' + o'*i).
imports: Init.Wf Recdef Reals mathcomp(all_ssreflect perm zmodp matrix ssralg) mathcomp(Rstruct) ssrR Reals_ext f2 subgraph_partition tanner fdist channel pproba linearcode ssralg_ext tanner_partition summary ldpc checksum