Notation "'inter'" := (@andp _).
Notation "'un'" := (@orp _).
Section ListDenotePred.
Context {A B : Type}.
Variables (f : A -> pred B) (b : pred B).

(* Specifications: *)
Lemma listd_conj_inter a l :
forall b', listd f inter TT (a :: l) b' -> listd f inter TT l b'.
Lemma listd_unfold_un l : listd f un b l = (listd f un FF l || b)%pred.
Proof with auto.