Theory globinits

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

theory globinits
imports "AutoCorres2.CTranslation"
begin

install_C_file "globinits.c"

context globinits_simpl
begin

thm sptr_def
thm sval_def
thm svalprime_def
thm array_def
thm a2_def
thm z_def
thm u_def

lemma a2_0: "index a2 0 = B"
apply (simp add: a2_def fcp_beta fupdate_def)
done

term sptr

  thm f_body_def
  thm g_body_def

end (* context *)

end (* theory *)