Hint Resolve @sepcon_TT.

(* Specifications: *)
Lemma imp_extract_exp_left {B A: Type} `{ageable A}:
forall    (p : B -> pred A) (q: pred A),
(forall x, p x |-- q) ->
exp p |-- q.
Lemma pure_sepcon_TT_andp {A} {JA: Join A}{PA: Perm_alg A}{SA: Sep_alg A}{agA: ageable A}{AgeA: Age_alg A}:
forall P Q, pure P -> (P * TT) && Q = (P*Q).
Lemma pure_sepcon_TT_andp' {A} {JA: Join A}{PA: Perm_alg A}{SA: Sep_alg A}{agA: ageable A}{AgeA: Age_alg A}:
forall P Q, pure P -> Q && (P * TT) = (Q*P).