27 lines
516 B
Plaintext
27 lines
516 B
Plaintext
(*
|
|
* 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
|