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 listd_insert_and cmp a l :
listd f and b (insert cmp a l) = and (f a) (listd f and b l).