1(*
2 * Copyright 2014, General Dynamics C4 Systems
3 *
4 * This software may be distributed and modified according to the terms of
5 * the GNU General Public License version 2. Note that NO WARRANTY is provided.
6 * See "LICENSE_GPLv2.txt" for details.
7 *
8 * @TAG(GD_GPL)
9 *)
10
11theory ArchBCorres_AI
12imports
13  "../BCorres_AI"
14begin
15
16context Arch begin global_naming ARM_HYP
17
18crunch (bcorres)bcorres[wp]: arch_finalise_cap truncate_state
19  (simp: swp_def)
20
21crunch (bcorres)bcorres[wp]: prepare_thread_delete truncate_state
22  (simp: swp_def)
23
24end
25
26requalify_facts ARM_HYP.arch_finalise_cap_bcorres ARM_HYP.prepare_thread_delete_bcorres
27
28declare arch_finalise_cap_bcorres[wp] prepare_thread_delete_bcorres[wp]
29
30end
31