intros k l; split; intros [y H].
- exists y...
- induction H as [a l eq|a l H IH].
+ destruct a as [k' y'].
exists y'...
+ destruct IH as [e H0].
exists e...
Qed.

Lemma Sort_In_cons_2 : forall l e e', Sort (e::l) -> InA eqk e' (e::l) ->
ltk e e' \/ eqk e e'.