Section EqSorted_in.
Variables (T : eqType) (leT : rel T).
Implicit Type s : seq T.

Lemma sorted_eq_in s1 s2 :
{in s1 & &, transitive leT} -> {in s1 &, antisymmetric leT} ->
sorted leT s1 -> sorted leT s2 -> perm_eq s1 s2 -> s1 = s2.