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 juicy_mem_alloc_block:
forall jm n jm2 b F,
juicy_mem_alloc jm 0 n = (jm2, b) ->
app_pred F (m_phi jm)  ->
0 <= n < Ptrofs.modulus ->
app_pred (F * memory_block Share.top n (Vptr b Ptrofs.zero)) (m_phi jm2).