
diff -r 4dc65845eab3 -r d8d7d1b785af src/HOL/MicroJava/J/SystemClasses.thy
--- a/src/HOL/MicroJava/J/SystemClasses.thy	Wed Feb 24 11:55:52 2010 +0100
+++ b/src/HOL/MicroJava/J/SystemClasses.thy	Mon Mar 01 13:40:23 2010 +0100
@@ -1,5 +1,4 @@
 (*  Title:      HOL/MicroJava/J/SystemClasses.thy
-    ID:         $Id$
     Author:     Gerwin Klein
     Copyright   2002 Technische Universitaet Muenchen
 *)
@@ -13,20 +12,19 @@
   and the system exceptions.
 *}
 
-constdefs
-  ObjectC :: "'c cdecl"
+definition ObjectC :: "'c cdecl" where
   "ObjectC \<equiv> (Object, (undefined,[],[]))"
 
-  NullPointerC :: "'c cdecl"
+definition NullPointerC :: "'c cdecl" where
   "NullPointerC \<equiv> (Xcpt NullPointer, (Object,[],[]))"
 
-  ClassCastC :: "'c cdecl"
+definition ClassCastC :: "'c cdecl" where
   "ClassCastC \<equiv> (Xcpt ClassCast, (Object,[],[]))"
 
-  OutOfMemoryC :: "'c cdecl"
+definition OutOfMemoryC :: "'c cdecl" where
   "OutOfMemoryC \<equiv> (Xcpt OutOfMemory, (Object,[],[]))"
 
-  SystemClasses :: "'c cdecl list"
+definition SystemClasses :: "'c cdecl list" where
   "SystemClasses \<equiv> [ObjectC, NullPointerC, ClassCastC, OutOfMemoryC]"
 
 end




