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

(* Specifications: *)
Lemma KHInt_correct :
forall (f : R -> V) (a b : R),
ex_KHInt f a b -> is_KHInt f a b (KHInt f a b).
Lemma is_KHInt_unique :
forall (f : R -> V) (a b : R) (l : V),
is_KHInt f a b l -> KHInt f a b = l.
Lemma KHInt_point :
forall (f : R -> V) (a : R),
KHInt f a a = zero.
Lemma KHInt_const :
forall (a b : R) (v : V),
KHInt (fun _ => v) a b = scal (b - a) v.
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.