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

Lemma ex_RInt_fct_extend_fst
(f : R -> U * V) (a b : R) :
ex_RInt f a b -> ex_RInt (fun t => fst (f t)) a b.