Section prod.
Context {U V : NormedModule R_AbsRing}.

Lemma is_RInt_fct_extend_pair
(f : R -> U * V) (a b : R) lu lv :
is_RInt (fun t => fst (f t)) a b lu ->
is_RInt (fun t => snd (f t)) a b lv
-> is_RInt f a b (lu,lv).