End Equiv.
(** * Vector space *)
(** is_domin is a vector space *)
Section Domin.
Context {T : Type} {Ku Kv : AbsRing}
{U : NormedModule Ku} {V : NormedModule Kv}.

Lemma domin_scal_r  :
forall {F : (T -> Prop) -> Prop} {FF : Filter F} (f : T -> U) (g : T -> V) (c : Kv),
is_domin F f g -> is_domin F f (fun x => scal c (g x)).