2014-07-14 19:32:44 +00:00
|
|
|
(*
|
|
|
|
* Copyright 2014, General Dynamics C4 Systems
|
|
|
|
*
|
2020-03-09 06:18:30 +00:00
|
|
|
* SPDX-License-Identifier: GPL-2.0-only
|
2014-07-14 19:32:44 +00:00
|
|
|
*)
|
|
|
|
|
|
|
|
(* General lemmas removed from KernelInit *)
|
|
|
|
|
|
|
|
theory InitLemmas
|
|
|
|
imports IncKernelInit
|
|
|
|
begin
|
|
|
|
|
|
|
|
declare headM_tailM_Cons[simp]
|
|
|
|
|
|
|
|
declare cart_singletons[simp]
|
|
|
|
|
|
|
|
declare less_1_simp[simp]
|
|
|
|
|
|
|
|
declare is_aligned_no_overflow[simp]
|
|
|
|
|
|
|
|
declare unless_True[simp]
|
|
|
|
|
|
|
|
declare maybe_fail_bind_fail[simp]
|
|
|
|
|
|
|
|
crunch cte_wp_at'[wp]: setPriority "cte_wp_at' P p" (simp: crunch_simps)
|
|
|
|
crunch irq_node'[wp]: setPriority "\<lambda>s. P (irq_node' s)" (simp: crunch_simps)
|
|
|
|
|
|
|
|
end
|