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. *)

Lemma extend_unfash {A} {JA: Join A}{PA: Perm_alg A}{SA: Sep_alg A}{AG: ageable A}{XA: Age_alg A} : forall (P: pred nat), boxy extendM (! P).