(*    (glob_types Delta) ! b = Some (type_of_funspec b0) -> *)

(* Specifications: *)
Lemma free_juicy_mem_level:
forall jm m b lo hi H, level (free_juicy_mem jm m b lo hi H) = level jm.
Lemma free_juicy_mem_ghost:
forall jm m b lo hi H,
ghost_of (m_phi (free_juicy_mem jm m b lo hi H)) = ghost_of (m_phi jm).
Lemma free_list_free:
forall m b lo hi l' m',
free_list m ((b,lo,hi)::l') = Some m' ->
{m2 | free m b lo hi = Some m2 /\ free_list m2 l' = Some m'}.