Module spred. Section spred.
Variables x y z : spred.
Local Open Scope pred.

Lemma list_denote_inter_app : forall {A} (f: A -> spred) cs1 cs2 s,
list_denote f (@andp state) TT (cs1 ++ cs2) s ->
(list_denote f (@andp state) TT cs1 s /\
list_denote f (@andp state) TT cs2 s).