Mercurial Mercurial > repos > isabelle / file revision
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/HOL/Library/Code_Char_ord.thy
author paulson
Mon, 12 Mar 2012 16:14:25 +0000
changeset 46877 059d20d08ff1
parent 42857 1e1b74448f6b
permissions -rw-r--r--
Structured proofs in ZF

(*  Title:      HOL/Library/Code_Char_ord.thy
    Author:     Lukas Bulwahn, Florian Haftmann, Rene Thiemann
*)

header {* Code generation of orderings for pretty characters *}

theory Code_Char_ord
imports Code_Char Char_ord
begin
  
code_const "Orderings.less_eq \<Colon> char \<Rightarrow> char \<Rightarrow> bool"
  (SML "!((_ : char) <= _)")
  (OCaml "!((_ : char) <= _)")
  (Haskell infix 4 "<=")
  (Scala infixl 4 "<=")
  (Eval infixl 6 "<=")

code_const "Orderings.less \<Colon> char \<Rightarrow> char \<Rightarrow> bool"
  (SML "!((_ : char) < _)")
  (OCaml "!((_ : char) < _)")
  (Haskell infix 4 "<")
  (Scala infixl 4 "<")
  (Eval infixl 6 "<")

end
isabelle