fact: Definition tag_eq_bool k (t1 t2 : tag k) : bool := match t1, t2 with | Func, Func => true | Var a, Var b => a == b | _, _ => false end.
imports: Wf_nat Init.Wf Recdef Reals mathcomp(all_ssreflect perm zmodp matrix ssralg) mathcomp(Rstruct) ssrR Reals_ext ssr_ext ssralg_ext bigop_ext f2 fdist channel pproba linearcode subgraph_partition tanner tanner_partition summary ldpc checksum ldpc_algo