changeset 32069 | 6d28bbd33e2c |
parent 31998 | 2c7a24f74db9 |
child 34051 | 1a82e2e29d67 |
--- a/src/HOL/Imperative_HOL/Heap_Monad.thy Tue Jul 14 16:27:31 2009 +0200 +++ b/src/HOL/Imperative_HOL/Heap_Monad.thy Tue Jul 14 16:27:32 2009 +0200 @@ -283,7 +283,7 @@ where [code del]: "raise_exc e = raise []" -lemma raise_raise_exc [code, code_inline]: +lemma raise_raise_exc [code, code_unfold]: "raise s = raise_exc (Fail (STR s))" unfolding Fail_def raise_exc_def raise_def ..