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

Lemma juicy_mem_alloc_core:
forall jm lo hi jm' b, JuicyMemOps.juicy_mem_alloc jm lo hi = (jm', b) ->
core (m_phi jm) = core (m_phi jm').