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))