equal
deleted
inserted
replaced
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 |