diff -r 527563e67194 -r 5af400cc64d5 src/HOL/MicroJava/BV/BVExample.thy
--- a/src/HOL/MicroJava/BV/BVExample.thy	Tue Sep 19 15:21:51 2006 +0200
+++ b/src/HOL/MicroJava/BV/BVExample.thy	Tue Sep 19 15:21:52 2006 +0200
@@ -448,6 +448,9 @@
 consts_code
   "some_elem" ("hd")
 
+code_const some_elem
+  (SML "{*hd*}")
+
 lemma JVM_sup_unfold [code]:
  "JVMType.sup S m n = lift2 (Opt.sup
        (Product.sup (Listn.sup (JType.sup S))