Definition globals_separate {F V:Type} (ge: Genv.t F V) mu nu :=
    forall b1 b2 d, as_inj mu b1 = None ->
            as_inj nu b1 =Some(b2,d) ->
            isGlobalBlock ge b2 = false.

Lemma gsep_trans: forall {F V} (ge: Genv.t F V) mu mu' mu'', Values.inject_incr (as_inj mu') (as_inj mu'') -> globals_separate ge mu mu' -> globals_separate ge mu' mu'' -> globals_separate ge mu mu''.