Theory jiraver345

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

theory jiraver345
  imports "AutoCorres2.CTranslation"
begin

install_C_file "jiraver345.c"


thm good_body_def
thm bad_body_def

lemma (in jiraver345_global_addresses) includes good_variables 
  shows "Γ ⊢ ⦃ ´p = Ptr 0 ⦄ ´ret' :== CALL good(´p) ⦃ ´ret' = 0 ⦄"
apply vcg
apply simp
done

lemma (in jiraver345_global_addresses) includes bad_variables 
  shows "Γ ⊢ ⦃ True ⦄ ´ret' :== CALL bad(Ptr 0) ⦃ ´ret' = 0 ⦄"
apply vcg
apply simp
done

end