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

(*Proof the match_genv is preserved by callsteps*)
Lemma intern_incr_meminj_preserves_globals:
forall {F V} (ge: Genv.t F V) mu
(PG: meminj_preserves_globals ge (extern_of mu) /\
(forall b, isGlobalBlock ge b = true -> frgnBlocksSrc mu b = true))
mu' (Inc: intern_incr mu mu'),
meminj_preserves_globals ge (extern_of mu') /\
(forall b, isGlobalBlock ge b = true -> frgnBlocksSrc mu' b = true).