(** * Operations on the Riemann integral *)

(* Specifications: *)
Lemma StepFun_bound {a b : R} (f : StepFun a b) :
exists s : R, forall x, Rmin a b <= x <= Rmax a b -> f x <= s.
Lemma Riemann_integrable_bound (f : R -> R) (a b : R) :
Riemann_integrable f a b -> exists s : R, forall x, Rmin a b <= x <= Rmax a b -> f x <= s.