Theory variable_munge

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

theory variable_munge
imports "AutoCorres2.CTranslation"
begin

install_C_file "variable_munge.c"

context variable_munge_simpl
begin

thm f_body_def
thm g_body_def
thm h_body_def
thm j_body_def
thm bar_body_def
thm qux_body_def

end

declare [[ML_print_depth=1000]]
lemma  (in j_impl) j_test1:

  "Γ ⊢ ⦃ True ⦄ ´ret' :== CALL j(255) ⦃ ´ret' = 0 ⦄"
apply vcg
apply simp
done

lemma (in j_impl) j_test2:
  "Γ ⊢ ⦃ True ⦄ ´ret' :== CALL j(-200) ⦃ ´ret' = -400 ⦄"
apply vcg
apply simp
done

end