(* Author: Florian Haftmann, TU Muenchen *)
header {* Pervasive test of code generator using pretty literals *}
theory Generate_Pretty
imports Candidates_Pretty
begin
lemma [code, code del]: "nat_of_char = nat_of_char" ..
lemma [code, code del]: "char_of_nat = char_of_nat" ..
lemma [code, code del]: "(less_eq :: char \<Rightarrow> _) = less_eq" ..
lemma [code, code del]: "(less :: char \<Rightarrow> _) = less" ..
subsection {* Check whether generated code compiles *}
text {*
If any of the checks fails, inspect the code generated
by a corresponding @{text export_code} command.
*}
export_code "*" checking SML OCaml? Haskell? Scala?
end