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_correct :
forall (f : R -> V) (a b : R),
ex_KHInt f a b -> is_KHInt f a b (KHInt f a b).