src/HOL/Orderings.thy
changeset 31998 2c7a24f74db9
parent 30929 d9343c0aac11
child 32215 87806301a813
equal deleted inserted replaced
31997:de0d280c31a7 31998:2c7a24f74db9
   266 
   266 
   267 end
   267 end
   268 
   268 
   269 text {* Explicit dictionaries for code generation *}
   269 text {* Explicit dictionaries for code generation *}
   270 
   270 
   271 lemma min_ord_min [code, code unfold, code inline del]:
   271 lemma min_ord_min [code, code_unfold, code_inline del]:
   272   "min = ord.min (op \<le>)"
   272   "min = ord.min (op \<le>)"
   273   by (rule ext)+ (simp add: min_def ord.min_def)
   273   by (rule ext)+ (simp add: min_def ord.min_def)
   274 
   274 
   275 declare ord.min_def [code]
   275 declare ord.min_def [code]
   276 
   276 
   277 lemma max_ord_max [code, code unfold, code inline del]:
   277 lemma max_ord_max [code, code_unfold, code_inline del]:
   278   "max = ord.max (op \<le>)"
   278   "max = ord.max (op \<le>)"
   279   by (rule ext)+ (simp add: max_def ord.max_def)
   279   by (rule ext)+ (simp add: max_def ord.max_def)
   280 
   280 
   281 declare ord.max_def [code]
   281 declare ord.max_def [code]
   282 
   282