proposition: Lemma convn1E a e : <|>_e (fun _ : 'I_1 => a) = a.
proof: Proof. rewrite /=; case: Bool.bool_dec => // /Bool.eq_true_not_negb H; exfalso; move/eqP: H; apply. by apply/eqP; rewrite fdist1E1 (fdist1I1 e). Qed.
imports: mathcomp(all_ssreflect ssralg ssrnum matrix fingroup perm) Reals Lra mathcomp(mathcomp_extra Rstruct reals) ssrR Reals_ext realType_ext Ranalysis_ext ssr_ext ssralg_ext logb fdist convex