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