Module OrderedTypeLists (O:OrderedType).
Local Notation In:=(InA O.eq).
Local Notation Inf:=(lelistA O.lt).
Local Notation Sort:=(sort O.lt).
Local Notation NoDup:=(NoDupA O.eq).
Notation Sort := (sort ltk).
Notation Inf := (lelistA ltk).

Lemma Sort_In_cons_3 x l k e :
Sort ((k,e)::l) -> In x l -> ~O.eq x k.