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

Slight fudges for Fastpath use with PIDE.

This commit is contained in:
Thomas Sewell 2014-09-18 20:12:43 +10:00
parent 4a56fb49f9
commit f59767cdac
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
proof/ROOT
View File

@ -56,6 +56,10 @@ session AInvs = ASpec +
* C Refinement proof.
*)
session CRefineSyscall = CBaseRefine +
theories
"crefine/Syscall_C"
session CRefine = CBaseRefine +
theories
"crefine/Refine_C"

3
proof/crefine/Fastpath_C.thy
View File

@ -2240,6 +2240,7 @@ lemma fastpath_call_ccorres:
split: Structures_H.kernel_object.splits)
done
show ?thesis
using [[goals_limit = 1]]
apply (cinit lift: cptr_' msgInfo_')
apply (simp add: catch_liftE_bindE unlessE_throw_catch_If
unifyFailure_catch_If catch_liftE
@ -2872,7 +2873,6 @@ lemma threadSet_tcbState_valid_objs:
apply (clarsimp simp: valid_tcb'_def tcb_cte_cases_def)
done
lemma fastpath_reply_wait_ccorres:
notes hoare_TrueI[simp]
shows "ccorres dc xfdc
@ -2918,6 +2918,7 @@ lemma fastpath_reply_wait_ccorres:
done
show ?thesis
using [[goals_limit = 1]]
apply (cinit lift: cptr_' msgInfo_')
apply (simp add: catch_liftE_bindE unlessE_throw_catch_If
unifyFailure_catch_If catch_liftE