Require Export Axioms.
Require Export Maps.

Lemma add_globals_find_symbol: forall {F V} (defs : list (ident * globdef F V))
(R: list_norepet (map fst defs)) (g: Genv.t F V) m0 m
(G: Genv.alloc_globals (Genv.add_globals g defs) m0 defs = Some m)
(N: Genv.genv_next g = Mem.nextblock m0)
b (VB: Mem.valid_block m b),
Mem.valid_block m0 b \/
exists id, Genv.find_symbol (Genv.add_globals g defs) id = Some b.