Local Open Scope pred.
Hint Resolve @sepcon_subp' : core.
Hint Resolve @subp_refl' : core.
Hint Resolve @andp_subp' : core.
Hint Resolve @allp_subp' : core.
Hint Resolve @derives_subp : core.
Hint Resolve @pred_eq_e1 : core.
Hint Resolve @pred_eq_e2 : core.
(* Lemma subp_later {A} `{agA:  ageable A} (SS: natty A): forall (P Q: pred A), |> (P >=> Q) |-- |> P >=> |> Q. *)
Hint Resolve @extend_unfash : core.
Hint Resolve @subp_unfash : core.

Lemma unfash_sepcon_distrib:
forall {T}{agT: ageable T}{JoinT: Join T}{PermT: Perm_alg T}{SepT: Sep_alg T}{AgeT: Age_alg T}
(P: pred nat) (Q R: pred T),
unfash P && (Q*R) = (unfash P && Q) * (unfash P && R).