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 genvs_domain_eq_isGlobal: forall {F1 V1 F2 V2} ge1 ge2 (DomainEQ: @genvs_domain_eq F1 V1 F2 V2 ge1 ge2), isGlobalBlock ge1 = isGlobalBlock ge2.