End is_KHInt.
Section KHInt.
Context {V : CompleteNormedModule R_AbsRing}.
Definition KHInt (f : R -> V) (a b : R) :=
iota (is_KHInt f a b).

Lemma KHInt_const :
forall (a b : R) (v : V),
KHInt (fun _ => v) a b = scal (b - a) v.