fact: Definition normalize (p : R2) := let (p0,p1) := p in (p0 / (p0 + p1), p1 / (p0 + p1)).
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