Definition isGlobalBlock {F V : Type} (ge : Genv.t F V) :=
  fun b => (fst (genv2blocksBool ge)) b || (snd (genv2blocksBool ge)) b.

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.