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