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_l :
forall {F : (T -> Prop) -> Prop} {FF : Filter F} (f : T -> U) (g : T -> V) (c : Ku),
(exists y, mult y c = one) -> is_domin F f g -> is_domin F (fun x => scal c (f x)) g.