apply prop_ext; intuition.
Qed.

(* Specifications: *)
Lemma andp_TT {A}: forall (P: pred A), P && TT = P.
Lemma emp_wand {A} {JA: Join A}{PA: Perm_alg A}{SA: Sep_alg A}:
forall P, emp -* P = P.
Lemma wand_derives {A} {JA: Join A}{PA: Perm_alg A}:
forall P P' Q Q',  P' |-- P -> Q |-- Q' -> P -* Q |-- P' -* Q'.
Lemma TT_sepcon_TT {A} {JA: Join A}{PA: Perm_alg A}{SA: Sep_alg A}: TT * TT = TT.
Definition ewand {A} {JA: Join A} (P Q: pred A) : pred A :=
fun w => exists w1, exists w2, join w1 w w2 /\ P w1 /\ Q w2.