(* Specialization of results about lists modulo. *)
Notation In:=(InA eq).
Notation Inf:=(lelistA lt).
Notation Sort:=(sort lt).
Notation NoDup:=(NoDupA eq).

Lemma ltk_trans : forall e e' e'', ltk e e' -> ltk e' e'' -> ltk e e''.
#[local]
Hint Resolve eqk_trans eqke_trans eqk_refl eqke_refl : ordered_type.