1.1 --- a/src/HOL/Library/List_lexord.thy	Wed Nov 20 11:59:33 2013 +0100
     1.2 +++ b/src/HOL/Library/List_lexord.thy	Wed Nov 20 12:11:12 2013 +0100
     1.3 @@ -118,4 +118,6 @@
     1.4    "(x\<Colon>'a\<Colon>{equal, order}) # xs \<le> y # ys \<longleftrightarrow> x < y \<or> x = y \<and> xs \<le> ys"
     1.5    by simp_all
     1.6  
     1.7 +code_printing class_instance String.literal :: ord \<rightharpoonup> (Haskell) -
     1.8 +
     1.9  end