fact: Fixpoint seqs_but1 (a b : seq R2) := if b is b1 :: b2 then (a ++ b2) :: seqs_but1 (rcons a b1) b2 else [::].
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