Definition upto_block (b: block) (w: rmap) : rmap :=  only_blocks (fun b' => plt b' b) w.
Definition beyond_block (b: block) (w: rmap) : rmap := only_blocks (not_dec (fun b' => plt b' b)) w.

Lemma join_upto_beyond_block:
forall b phi, identity (ghost_of phi) -> join  (upto_block b phi)  (beyond_block b phi) phi.