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.