(*Lenb: moved alloc_juicy_variables, juicy_mem_alloc_core, and alloc_juicy_variables_e here from to veric/juicy_mem_ops.v*)

Lemma alloc_juicy_variables_e:
forall ge rho jm vl rho' jm',
alloc_juicy_variables ge rho jm vl = (rho', jm') ->
Clight.alloc_variables ge rho (m_dry jm) vl rho' (m_dry jm')
/\ level jm = level jm'
/\ core (m_phi jm) = core (m_phi jm').