proposition: Lemma fimfun_mulr_closed : mulr_closed (@fimfun aT rT).
proof: Proof. split=> [|f g]; rewrite !inE/=; first exact: finite_image_cst. by move=> fA gA; apply: (finite_image11 (fun x y => x * y)). Qed.
imports: HB(structures) mathcomp(all_ssreflect ssralg ssrnum ssrint interval finmap) mathcomp(mathcomp_extra boolp classical_sets fsbigop) mathcomp(functions cardinality set_interval) signed reals ereal topology normedtype sequences