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