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

arm+arm-hyp crefine: indent pass over Fastpath_Equiv 

Signed-off-by: Rafal Kolanski <rafal.kolanski@proofcraft.systems>
This commit is contained in:
Rafal Kolanski 2022-11-01 16:20:06 +11:00 committed by Rafal Kolanski
parent 536eec39e4
commit 2909c56924
2 changed files with 270 additions and 270 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
proof/crefine/ARM/Fastpath_Equiv.thy
View File

@ -631,7 +631,7 @@ lemma fastpath_callKernel_SysCall_corres:
apply (monadic_rewrite_symb_exec_l_known BlockedOnReply)
apply simp
apply (rule monadic_rewrite_refl)
apply wpsimp (* FIXME indentation *)
apply wpsimp
apply (rule monadic_rewrite_trans)
apply (rule monadic_rewrite_bind_head)
apply (rule_tac t="hd (epQueue send_ep)"

2
proof/crefine/ARM_HYP/Fastpath_Equiv.thy
View File

@ -631,7 +631,7 @@ lemma fastpath_callKernel_SysCall_corres:
apply (monadic_rewrite_symb_exec_l_known BlockedOnReply)
apply simp
apply (rule monadic_rewrite_refl)
apply wpsimp (* FIXME indentation *)
apply wpsimp
apply (rule monadic_rewrite_trans)
apply (rule monadic_rewrite_bind_head)
apply (rule_tac t="hd (epQueue send_ep)"