(* Lemma alloc_global_inflate_identity_iff: forall gev m0 i f m G n loc, Genv.alloc_global gev m0 (i, Gfun f) = Some m -> (identity (inflate_initial_mem m0 (initial_core gev G n) @ loc) <-> identity (inflate_initial_mem m (initial_core gev G n) @ loc)). *)

Lemma alloc_global_identity_lemma3:
forall gev m0 i f m G n loc,
Genv.alloc_global gev m0 (i, Gfun f) = Some m ->
identity (inflate_initial_mem m (initial_core gev G n) @ loc) ->
identity (inflate_initial_mem m0 (initial_core gev G n) @ loc).