--- a/src/HOL/Codegenerator_Test/Generate_Binary_Nat.thy Thu Oct 31 11:44:20 2013 +0100
+++ b/src/HOL/Codegenerator_Test/Generate_Binary_Nat.thy Thu Oct 31 11:44:20 2013 +0100
@@ -16,6 +16,20 @@
by a corresponding @{text export_code} command.
*}
-export_code _ checking SML OCaml? Haskell? Scala
+text {* Formal joining of hierarchy of implicit definitions in Scala *}
+
+class semiring_numeral_even_odd = semiring_numeral_div + even_odd
+
+instance nat :: semiring_numeral_even_odd ..
+
+definition semiring_numeral_even_odd :: "'a itself \<Rightarrow> 'a::semiring_numeral_even_odd"
+where
+ "semiring_numeral_even_odd TYPE('a) = undefined"
+
+definition semiring_numeral_even_odd_nat :: "nat itself \<Rightarrow> nat"
+where
+ "semiring_numeral_even_odd_nat = semiring_numeral_even_odd"
+
+export_code _ checking SML OCaml? Haskell? Scala
end