src/HOL/MicroJava/J/SystemClasses.thy
author nipkow
Wed Jan 04 19:22:53 2006 +0100 (2006-01-04)
changeset 18576 8d98b7711e47
parent 16417 9bc16273c2d4
child 28524 644b62cf678f
permissions -rw-r--r--
Reversed Larry's option/iff change.
kleing@12951
     1
(*  Title:      HOL/MicroJava/J/SystemClasses.thy
kleing@12951
     2
    ID:         $Id$
kleing@12951
     3
    Author:     Gerwin Klein
kleing@12951
     4
    Copyright   2002 Technische Universitaet Muenchen
kleing@12951
     5
*)
kleing@12951
     6
kleing@12951
     7
header {* \isaheader{System Classes} *}
kleing@12951
     8
haftmann@16417
     9
theory SystemClasses imports Decl begin
kleing@12951
    10
kleing@12951
    11
text {*
kleing@12951
    12
  This theory provides definitions for the @{text Object} class,
kleing@12951
    13
  and the system exceptions.
kleing@12951
    14
*}
kleing@12951
    15
kleing@12951
    16
constdefs
kleing@12951
    17
  ObjectC :: "'c cdecl"
kleing@12951
    18
  "ObjectC \<equiv> (Object, (arbitrary,[],[]))"
kleing@12951
    19
kleing@12951
    20
  NullPointerC :: "'c cdecl"
kleing@12951
    21
  "NullPointerC \<equiv> (Xcpt NullPointer, (Object,[],[]))"
kleing@12951
    22
kleing@12951
    23
  ClassCastC :: "'c cdecl"
kleing@12951
    24
  "ClassCastC \<equiv> (Xcpt ClassCast, (Object,[],[]))"
kleing@12951
    25
kleing@12951
    26
  OutOfMemoryC :: "'c cdecl"
kleing@12951
    27
  "OutOfMemoryC \<equiv> (Xcpt OutOfMemory, (Object,[],[]))"
kleing@12951
    28
kleing@12951
    29
  SystemClasses :: "'c cdecl list"
kleing@12951
    30
  "SystemClasses \<equiv> [ObjectC, NullPointerC, ClassCastC, OutOfMemoryC]"
kleing@12951
    31
kleing@12951
    32
end