Definition tc_fn_return (Delta: tycontext) (ret: option ident) (t: type) :=
match ret with
| None => True
| Some i => match (temp_types Delta) ! i with Some t' => t=t' | _ => False end
end.

Lemma alloc_juicy_variables_resource_decay:
forall ge rho jm vl rho' jm',
alloc_juicy_variables ge rho jm vl = (rho', jm') ->
resource_decay (nextblock (m_dry jm)) (m_phi jm) (m_phi jm') /\
(nextblock (m_dry jm) <= nextblock (m_dry jm'))%positive.