lib: fix unused/historical StateMonad theory

This commit is contained in:
Gerwin Klein 2018-06-12 20:35:14 +02:00
parent 382b07dc20
commit 6aa78c310a
1 changed files with 1 additions and 1 deletions

View File

@ -149,7 +149,7 @@ declare
lemma returnOk_bindE [simp]: "(returnOk x >>=E f) = f x"
unfolding bindE_def return_def returnOk_def
by (clarsimp simp: lift_def)
by (clarsimp simp: lift_def bind_def)
lemma lift_return [simp]:
"lift (return \<circ> Inr) = return"