fact: Definition proj0 n (s : 'S_n.+2) (i : 'I_n.+1) : 'I_n.+1 := inord (s (lift ord0 i)).-1.
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