Section Equiv_VS.
Context {T : Type} {K : AbsRing} {V : NormedModule K}.
End Equiv_VS.
(** * Multiplication and inverse *)
(** Domination *)
(** Equivalence *)

Lemma equiv_mult :
forall {T} {F : (T -> Prop) -> Prop} {FF : Filter F} (f1 f2 g1 g2 : T -> R),
is_equiv F f1 g1 -> is_equiv F f2 g2 ->
is_equiv F (fun x => f1 x * f2 x) (fun x => g1 x * g2 x).