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

Lemma build_call_temp_env:
forall f vl,
length (fn_params f) = length vl ->
exists te,  bind_parameter_temps (fn_params f) vl
(create_undef_temps (fn_temps f)) = Some te.