Hint Resolve @compareM_refl.
(* Rules for the BI connectives *)

Lemma wand_sepcon_adjoint {A} {JA: Join A}{PA: Perm_alg A}{AG: ageable A}{XA: Age_alg A} : forall (P Q R:pred A),
((P * Q) |-- R) = (P |-- (Q -* R)).