| changeset 22845 | 5f9138bcb3d7 | 
| parent 22805 | 1166a966e7b4 | 
| child 23394 | 474ff28210c0 | 
--- a/src/HOL/Library/Char_ord.thy Sun May 06 21:49:44 2007 +0200 +++ b/src/HOL/Library/Char_ord.thy Sun May 06 21:50:17 2007 +0200 @@ -47,7 +47,7 @@ n1 < n2 \<or> n1 = n2 \<and> m1 < m2" by default (auto simp: char_less_eq_def char_less_def split: char.splits) -lemmas [code nofunc] = char_less_eq_def char_less_def +lemmas [code func del] = char_less_eq_def char_less_def instance char :: distrib_lattice "inf \<equiv> min"