fact: Definition point pt : (weight pt > 0)%coqR -> A := match pt with | t *: a => fun=> a | Zero => fun H : (weight Zero > 0)%coqR => match ltRR 0 H with end end.
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