fact: Fixpoint my_ord_enum (n : nat) : seq 'I_n := match n as m return m = n -> seq 'I_n with | 0 => fun _ => [::] | S n' => fun e => match e with eq_refl => eq_rect (n'.+1) (fun n => seq 'I_n) (@Ordinal n'.+1 n' (ltnSn n') :: map (widen_ord (leqnSn n')) (my_ord_enum n')) n e end end (Logic.eq_refl _).
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