Local Open Scope pred.

Lemma sepcon_subp' {A} {JA: Join A}{PA: Perm_alg A}{SA: Sep_alg A}{AG: ageable A}{XA: Age_alg A}:
forall (P P' Q Q' : pred A) (st: nat),
(P >=> P') st ->
(Q >=> Q') st ->
(P * Q >=> P' * Q') st.