fact: Definition nnsfun_approx : {nnsfun T >-> R}^nat := fun n => locked (add_nnsfun (sum_nnsfun (fun k => match Bool.bool_dec (k < (n * 2 ^ n))%N true with | left h => scale_nnsfun (indic_nnsfun _ (mA n k)) (k2n_ge0 (Ordinal h)) | right _ => nnsfun0 end) (n * 2 ^ n)%N) (scale_nnsfun (indic_nnsfun _ (mB n)) (ler0n _ n))).
imports: HB(structures) mathcomp(all_ssreflect ssralg ssrnum ssrint interval finmap) mathcomp(mathcomp_extra boolp classical_sets functions) mathcomp(cardinality fsbigop ) signed reals ereal topology normedtype sequences real_interval esum measure lebesgue_measure numfun