lib: add ifME_liftE
Signed-off-by: Michael McInerney <michael.mcinerney@proofcraft.systems>
This commit is contained in:
parent
f4a9758d8b
commit
adc7499aea
|
@ -370,6 +370,10 @@ lemma ifM_throwError_returnOk:
|
|||
validE_def bind_def
|
||||
split: if_splits)
|
||||
|
||||
lemma ifME_liftE:
|
||||
"ifME (liftE test) a b = ifM test a b"
|
||||
by (simp add: ifME_def ifM_def liftE_bindE)
|
||||
|
||||
lemma gets_the_inv: "\<lbrace>P\<rbrace> gets_the V \<lbrace>\<lambda>rv. P\<rbrace>" by wpsimp
|
||||
|
||||
lemma select_f_inv:
|
||||
|
|
Loading…
Reference in New Issue