Definition eqST (cp1 cp2 : tST) :=
eqList (PosSort.sort (CPToList cp1)) (PosSort.sort (CPToList cp2)).

Lemma ltListTrans : forall m x y z,
length x = (S m) ->
length y = (S m) ->
length z = (S m) ->
ltList x y -> ltList y z -> ltList x z.