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_uniq_or a l :
listd f or b (insert_uniq cmp a l) = or (f a) (listd f or b l).