33 lines
721 B
Plaintext
33 lines
721 B
Plaintext
(*
|
|
* Copyright 2014, General Dynamics C4 Systems
|
|
*
|
|
* This software may be distributed and modified according to the terms of
|
|
* the GNU General Public License version 2. Note that NO WARRANTY is provided.
|
|
* See "LICENSE_GPLv2.txt" for details.
|
|
*
|
|
* @TAG(GD_GPL)
|
|
*)
|
|
|
|
(* 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
|