let model_ishavoc : tbl_alloc -> store -> dzone -> store -> F.pred =
    D.p_app4 "is_havoc"