Definition local_out_of_reach mu (m : mem) (b : block) (ofs : Z): Prop :=
  locBlocksTgt mu b = true /\
  forall b0 delta, local_of mu b0 = Some (b, delta) ->
                  (~ Mem.perm m b0 (ofs - delta) Max Nonempty \/
                   pubBlocksSrc mu b0 = false).

Lemma meminj_preserves_globals_init_REACH_frgn: forall {F1 V1} (ge: Genv.t F1 V1) j (PG : meminj_preserves_globals ge j) DomS DomT m R Y (HR: forall b, isGlobalBlock ge b = true -> R b = true), (forall b, isGlobalBlock ge b = true -> frgnBlocksSrc (initial_SM DomS DomT (REACH m R) Y j) b = true).