(** Correction of RInt *)
(* Lemma is_RInt_lim_seq (f : R -> R) (a b : R) : forall If : R, is_RInt f a b If -> is_lim_seq (RInt_val f a b) If. *)
(** ** Usual rewritings *)

Lemma RInt_const (a b : R) (c : V) :
RInt (fun _ => c) a b = scal (b - a) c.