arm+arm-hyp crefine: indent pass over Fastpath_Equiv
Signed-off-by: Rafal Kolanski <rafal.kolanski@proofcraft.systems>
This commit is contained in:
parent
536eec39e4
commit
2909c56924
|
@ -631,7 +631,7 @@ lemma fastpath_callKernel_SysCall_corres:
|
||||||
apply (monadic_rewrite_symb_exec_l_known BlockedOnReply)
|
apply (monadic_rewrite_symb_exec_l_known BlockedOnReply)
|
||||||
apply simp
|
apply simp
|
||||||
apply (rule monadic_rewrite_refl)
|
apply (rule monadic_rewrite_refl)
|
||||||
apply wpsimp (* FIXME indentation *)
|
apply wpsimp
|
||||||
apply (rule monadic_rewrite_trans)
|
apply (rule monadic_rewrite_trans)
|
||||||
apply (rule monadic_rewrite_bind_head)
|
apply (rule monadic_rewrite_bind_head)
|
||||||
apply (rule_tac t="hd (epQueue send_ep)"
|
apply (rule_tac t="hd (epQueue send_ep)"
|
||||||
|
|
|
@ -631,7 +631,7 @@ lemma fastpath_callKernel_SysCall_corres:
|
||||||
apply (monadic_rewrite_symb_exec_l_known BlockedOnReply)
|
apply (monadic_rewrite_symb_exec_l_known BlockedOnReply)
|
||||||
apply simp
|
apply simp
|
||||||
apply (rule monadic_rewrite_refl)
|
apply (rule monadic_rewrite_refl)
|
||||||
apply wpsimp (* FIXME indentation *)
|
apply wpsimp
|
||||||
apply (rule monadic_rewrite_trans)
|
apply (rule monadic_rewrite_trans)
|
||||||
apply (rule monadic_rewrite_bind_head)
|
apply (rule monadic_rewrite_bind_head)
|
||||||
apply (rule_tac t="hd (epQueue send_ep)"
|
apply (rule_tac t="hd (epQueue send_ep)"
|
||||||
|
|
Loading…
Reference in New Issue