1.1 --- a/src/HOL/Library/Code_Char.thy	Wed Nov 27 10:43:51 2013 +0100
     1.2 +++ b/src/HOL/Library/Code_Char.thy	Wed Nov 27 10:54:44 2013 +0100
     1.3 @@ -100,6 +100,9 @@
     1.4  |  constant "Orderings.less_eq :: String.literal \<Rightarrow> String.literal \<Rightarrow> bool" \<rightharpoonup>
     1.5      (SML) "!((_ : string) <= _)"
     1.6      and (OCaml) "!((_ : string) <= _)"
     1.7 +    -- {* Order operations for @{typ String.literal} work in Haskell only 
     1.8 +          if no type class instance needs to be generated, because String = [Char] in Haskell
     1.9 +          and @{typ "char list"} need not have the same order as @{typ String.literal}. *}
    1.10      and (Haskell) infix 4 "<="
    1.11      and (Scala) infixl 4 "<="
    1.12      and (Eval) infixl 6 "<="

     2.1 --- a/src/HOL/Library/List_lexord.thy	Wed Nov 27 10:43:51 2013 +0100
     2.2 +++ b/src/HOL/Library/List_lexord.thy	Wed Nov 27 10:54:44 2013 +0100
     2.3 @@ -118,6 +118,4 @@
     2.4    "(x\<Colon>'a\<Colon>{equal, order}) # xs \<le> y # ys \<longleftrightarrow> x < y \<or> x = y \<and> xs \<le> ys"
     2.5    by simp_all
     2.6  
     2.7 -code_printing class_instance String.literal :: ord \<rightharpoonup> (Haskell) -
     2.8 -
     2.9  end