End norm_RInt.
(** * Specific Normed Modules *)
(** Pairs *)
Section prod.
Context {U V : NormedModule R_AbsRing}.

Lemma is_RInt_fct_extend_fst
(f : R -> U * V) (a b : R) (l : U * V) :
is_RInt f a b l -> is_RInt (fun t => fst (f t)) a b (fst l).