Definition list_sepcon {A} {JA: Join A}{PA: Perm_alg A}{SA: Sep_alg A} : list (pred A) -> pred A := fold_right sepcon emp.

Lemma exp_sepcon1 {A} {JA: Join A}{PA: Perm_alg A}: forall T (P: T -> pred A) Q, (exp P * Q = exp (fun x => P x * Q))%pred.