proposition: Lemma lty_fin_num_fun d (T : algebraOfSetsType d) (R : realFieldType) (mu : {measure set T -> \bar R}) : mu setT < +oo -> fin_num_fun mu.
proof: Proof. move=> h U mU; rewrite fin_real// (lt_le_trans _ (measure_ge0 mu U))//=. by rewrite (le_lt_trans _ h)//= le_measure// inE. Qed.
imports: mathcomp(all_ssreflect all_algebra finmap) mathcomp(mathcomp_extra boolp classical_sets functions) mathcomp(cardinality fsbigop ) reals ereal signed topology normedtype sequences esum numfun HB(structures)