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.