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_age:
forall {ge rho jm jm1 vl rho' jm' jm1'},
age jm jm1 -> age jm' jm1' ->
alloc_juicy_variables ge rho jm vl = (rho', jm') ->
alloc_juicy_variables ge rho jm1 vl = (rho', jm1').