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.