Proof with norm.
intros.
apply @derives_trans with (P * emp).
rewrite sepcon_emp...
apply sepcon_derives...
Qed.
Hint Resolve @sepcon_TT.

(* Specifications: *)
Lemma TT_sepcon {A} {NA: NatDed A}{SA: SepLog A}{CA: ClassicalSep A}:
forall (P: A), P |-- (TT * P).
Lemma imp_extract_exp_left {B A: Type} {NA: NatDed A}:
forall    (p : B -> A) (q: A),
(forall x, p x |-- q) ->
exp p |-- q.