Definition ltST (cp1 cp2 : tST) :=
    ltList (PosSort.sort (CPToList cp1)) (PosSort.sort (CPToList cp2)).

(* Specifications: *)
Lemma ltTrans : Transitive ltST.
Lemma ltListIrrefl : forall l, ltList l l -> False.
Lemma eqListOK : forall l1 l2, eqList l1 l2 -> l1 = l2.