Canonical itv_bound_eqMixin := EqMixin eq_itv_boundP.
Canonical itv_bound_eqType :=
Eval hnf in EqType (itv_bound T) itv_bound_eqMixin.
Definition eqitv (x y : interval T) : bool :=
let: Interval x x' := x in
let: Interval y y' := y in (x == y) && (x' == y').

(* Specifications: *)
Lemma eqitvP : Equality.axiom eqitv.
Canonical interval_eqMixin := EqMixin eqitvP.