End ListDenoteSortUniqPreds.
Section ListDenoteMergePreds.
Context {A B : Type}.
Variables (f : A -> pred B) (b : pred B).
Variable (cmp : A -> A -> comparison).
Variable (Hcmp : forall x y, Eq = cmp x y -> x = y).

Lemma listd_merge_inter l1 l2 s :
listd f inter TT l1 s -> listd f inter TT l2 s ->
listd f inter TT (merge cmp l1 l2) s.