Proof (mge_defs globalenvs_match).

Lemma alloc_globals_match:
forall gl1 gl2, list_forall2 (match_ident_globdef match_fundef match_varinfo ctx) gl1 gl2 ->
forall m m',
alloc_globals (globalenv p) m gl1 = Some m' ->
alloc_globals (globalenv tp) m gl2 = Some m'.