2016-07-12 02:17:16 +00:00
|
|
|
(*
|
|
|
|
* 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)
|
|
|
|
*)
|
|
|
|
|
2016-07-07 04:13:40 +00:00
|
|
|
theory AInvsPre
|
2016-07-11 05:36:01 +00:00
|
|
|
imports "./$L4V_ARCH/ArchVSpaceEntries_AI" ADT_AI
|
2016-07-07 04:13:40 +00:00
|
|
|
begin
|
|
|
|
|
|
|
|
locale AInvsPre =
|
|
|
|
fixes state_ext_type1 :: "('a :: state_ext) itself"
|
2016-09-22 09:12:33 +00:00
|
|
|
assumes ptable_rights_imp_frame:
|
2017-07-12 05:13:51 +00:00
|
|
|
"\<And> (s :: 'a state) t x y.
|
2017-03-28 06:35:57 +00:00
|
|
|
valid_state s \<Longrightarrow>
|
2016-07-07 04:13:40 +00:00
|
|
|
ptable_rights t s x \<noteq> {} \<Longrightarrow>
|
|
|
|
ptable_lift t s x = Some (addrFromPPtr y) \<Longrightarrow>
|
2016-09-22 09:12:33 +00:00
|
|
|
in_user_frame y s \<or> in_device_frame y s"
|
2016-07-07 04:13:40 +00:00
|
|
|
|
2016-07-11 05:36:01 +00:00
|
|
|
end
|