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 ewand_sepcon {A} {JA: Join A}{PA: Perm_alg A}: forall P Q R, (ewand (P * Q) R = ewand P (ewand Q R))%pred.