made "mk_case_eq_tac" work in the case where the first constructor is an "alternate" constructor (in which case its discriminator paradoxically starts with a negation)
(* 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" ..
declare Quickcheck_Narrowing.one_code_int_code [code del]
declare Quickcheck_Narrowing.int_of_code [code del]
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