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 free_list_juicy_mem_ghost: forall m l m', free_list_juicy_mem m l m' ->
ghost_of (m_phi m') = ghost_of (m_phi m).