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_lem2:
forall jm f (ge: genv) ve te jm' (F: pred rmap)
(HGG:  genv_cenv ge = cenv_cs)
(COMPLETE: Forall (fun it => complete_type cenv_cs (snd it) = true) (fn_vars f))
(Hsize: Forall (fun var => @sizeof ge (snd var) <= Ptrofs.max_unsigned) (fn_vars f)),
list_norepet (map fst (fn_vars f)) ->
alloc_juicy_variables ge empty_env jm (fn_vars f) = (ve, jm') ->
app_pred F (m_phi jm) ->
app_pred (F * stackframe_of f (construct_rho (filter_genv ge) ve te)) (m_phi jm').