src/HOL/Orderings.thy
changeset 49769 c7c2152322f2
parent 49660 de49d9b4d7bc
child 51263 31e786e0e6a7
     1.1 --- a/src/HOL/Orderings.thy	Wed Oct 10 10:48:55 2012 +0200
     1.2 +++ b/src/HOL/Orderings.thy	Wed Oct 10 12:52:24 2012 +0200
     1.3 @@ -1296,7 +1296,7 @@
     1.4  definition
     1.5    "\<bottom> = (\<lambda>x. \<bottom>)"
     1.6  
     1.7 -lemma bot_apply [simp] (* CANDIDATE [code] *):
     1.8 +lemma bot_apply [simp, code]:
     1.9    "\<bottom> x = \<bottom>"
    1.10    by (simp add: bot_fun_def)
    1.11  
    1.12 @@ -1311,7 +1311,7 @@
    1.13  definition
    1.14    [no_atp]: "\<top> = (\<lambda>x. \<top>)"
    1.15  
    1.16 -lemma top_apply [simp] (* CANDIDATE [code] *):
    1.17 +lemma top_apply [simp, code]:
    1.18    "\<top> x = \<top>"
    1.19    by (simp add: top_fun_def)
    1.20