induction l... simpl. rewrite <-IHl. rewrite listd_insert_uniq...
Qed.
End ListDenoteInsertUniq.
(* convenience lemmas specializing insert/insert_uniq/sort/sort_uniq to and/or/ andp/orp *)
Section ListDenoteSortProp.
Context {A : Type}.
Variable (f : A -> Prop) (b : Prop).
Local Hint Resolve andS andA orS orA.

Lemma list_sort_uniq_and l :
listd f and b (rsort_uniq cmp l) = listd f and b l.