src/HOL/MicroJava/BV/BVExample.thy
changeset 20593 5af400cc64d5
parent 17636 1db9597176c8
child 20935 f9a578316eef
--- 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))