Definition resource_at (phi:rmap) : address -> resource := fst (snd (unsquash phi)).
Infix "@" := resource_at (at level 50, no associativity).
Definition ghost_of (phi:rmap) : ghost := snd (snd (unsquash phi)).
Instance Join_nat_rmap': Join (nat * rmap') := Join_prod _ (Join_equiv nat) _ _.

Axiom join_unsquash : forall phi1 phi2 phi3,
join phi1 phi2 phi3 <->
join (unsquash phi1) (unsquash phi2) (unsquash phi3).