Theory ptr_auxupd

(*
 * Copyright 2020, Data61, CSIRO (ABN 41 687 119 230)
 * Copyright (c) 2022 Apple Inc. All rights reserved.
 *
 * SPDX-License-Identifier: BSD-2-Clause
 *)

theory ptr_auxupd
imports "AutoCorres2.CTranslation"
begin

definition
  "typ_clear_region ptr bits d ≡
  λx. (fst (d x), if x ∈ {ptr..+2 ^ bits} then Map.empty else (snd (d x)))"


install_C_file "ptr_auxupd.c"


context ptr_auxupd_simpl 
begin

thm alloc_body_def
thm alloc_modifies

end

end