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 is_RInt_KHInt :
forall (f : R -> V) (a b : R) (l : V),
is_RInt f a b l -> is_KHInt f a b l.