Ltac allp_left x :=
match goal with |- ?A |-- _ => match A with context [@allp ?T ?ND ?B ?P] =>
sep_apply_in_entailment (@allp_instantiate T ND B P x)
end end.

Lemma prop_sepcon2: forall {A}{ND: NatDed A}{SL: SepLog A}
P Q, Q * !! P = !! P && (TT * Q).