Definition hackfun phi0 phi :=
level phi0 = level phi /\ ghost_of phi0 = ghost_of phi /\
forall loc, (identity (phi0 @ loc) <-> identity (phi @ loc)) /\
(~identity (phi0 @ loc) -> (phi0 @ loc = phi @ loc)).

Lemma alloc_global_inflate_initial_eq:
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) ->
inflate_initial_mem m0 (initial_core gev G n) @ loc =
inflate_initial_mem m (initial_core gev G n) @ loc.