(*
 * Copyright (c) 2023 Apple Inc. All rights reserved.
 *
 * SPDX-License-Identifier: BSD-2-Clause
 *)


theory modifies_local_ptr
imports "CParser.CTranslation"
begin

ML \<open>the_default\<close>
term "to_bytes"
declare  [[c_parser_feedback_level=3, ML_print_depth=1000]]
include_C_file "union.h" for union.c
install_C_file "union.c" 

ML_val \<open>RecursiveRecordPackage.get_info @{theory}\<close>

ML_val \<open>Option.map\<close>
context union_simpl
begin
thm foo_body_def
thm bar_body_def
thm car_body_def
thm access1_body_def
thm access2_body_def
thm access3_body_def
thm access4_body_def

thm update1_body_def
thm update2_body_def
thm heap_update1_body_def
thm heap_update3_body_def
thm heap_update2_body_def
thm heap_update2_body_def [simplified]
thm size_align_simps
thm size_simps
end

end
