adbrucker
/
lh-l4v
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

aspec: mapsto syntax update for Isabelle2023 

Signed-off-by: Gerwin Klein <gerwin.klein@proofcraft.systems>
This commit is contained in:
Gerwin Klein 2023-09-13 19:03:06 +02:00
parent 286278d9e8
commit 450234e062
No known key found for this signature in database
GPG Key ID: 20A847CE6AB7F5F3
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
spec/abstract/ARM_HYP/Init_A.thy
View File

@ -77,8 +77,8 @@ definition
tcb_bound_notification = None,
tcb_mcpriority = minBound,
tcb_arch = init_arch_tcb
\<rparr>)
(us_global_pd_ptr \<mapsto> us_global_pd)"
\<rparr>,
us_global_pd_ptr \<mapsto> us_global_pd)"
definition
"init_cdt \<equiv> Map.empty"

2
spec/abstract/Deterministic_A.thy
View File

@ -244,7 +244,7 @@ definition set_eobject :: "obj_ref \<Rightarrow> etcb \<Rightarrow> unit det_ext
where
"set_eobject ptr obj \<equiv>
do es \<leftarrow> get;
ekh \<leftarrow> return $ ekheap es(ptr \<mapsto> obj);
ekh \<leftarrow> return $ (ekheap es)(ptr \<mapsto> obj);
put (es\<lparr>ekheap := ekh\<rparr>)
od"

2
spec/abstract/KHeap_A.thy
View File

@ -35,7 +35,7 @@ where
kobj <- get_object ptr;
assert (a_type kobj = a_type obj);
s \<leftarrow> get;
put (s\<lparr>kheap := kheap s(ptr \<mapsto> obj)\<rparr>)
put (s\<lparr>kheap := (kheap s)(ptr \<mapsto> obj)\<rparr>)
od"