(*
 * Copyright 2014, General Dynamics C4 Systems
 *
 * SPDX-License-Identifier: GPL-2.0-only
 *)

theory ArchBCorres_AI
imports
  BCorres_AI
begin

context Arch begin global_naming X64

crunch (bcorres)bcorres[wp]: arch_finalise_cap truncate_state
  (simp: swp_def)

crunch (bcorres)bcorres[wp]: prepare_thread_delete truncate_state
  (simp: swp_def)

end

requalify_facts X64.arch_finalise_cap_bcorres X64.prepare_thread_delete_bcorres

declare arch_finalise_cap_bcorres[wp] prepare_thread_delete_bcorres[wp]

end