proposition: Lemma ConvnI1_eq_rect n (g : 'I_n -> T) (d : {fdist 'I_n}) (Hn1 : n = 1) : <|>_d g = eq_rect n (fun n => 'I_n -> T) g 1 Hn1 ord0.
proof: Proof. set d' := eq_rect n (fun n0 => {fdist 'I_n0}) d 1 Hn1. set g' := eq_rect n (fun n0 => 'I_n0 -> T) g 1 Hn1. suff -> : <|>_d g = <|>_d' g' by rewrite ConvnI1E. by eapply eq_dep_Convn. Qed.
imports: HB(structures) mathcomp(all_ssreflect ssralg fingroup perm matrix) mathcomp(mathcomp_extra boolp classical_sets Rstruct) mathcomp(ssrnum ereal) mathcomp(lra Rstruct reals) Reals ssrR Reals_ext Ranalysis_ext ssr_ext ssralg_ext logb realType_ext fdist