src/HOL/MicroJava/JVM/Store.thy
author nipkow
Thu, 11 Nov 1999 12:23:45 +0100
changeset 8011 d14c4e9e9c8e
child 8034 6fc37b5c5e98
permissions -rw-r--r--
*** empty log message ***
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
8011
d14c4e9e9c8e *** empty log message ***
nipkow
parents:
diff changeset
     1
(*  Title:      HOL/MicroJava/JVM/Store.thy
d14c4e9e9c8e *** empty log message ***
nipkow
parents:
diff changeset
     2
    ID:         $Id$
d14c4e9e9c8e *** empty log message ***
nipkow
parents:
diff changeset
     3
    Author:     Cornelia Pusch
d14c4e9e9c8e *** empty log message ***
nipkow
parents:
diff changeset
     4
    Copyright   1999 Technische Universitaet Muenchen
d14c4e9e9c8e *** empty log message ***
nipkow
parents:
diff changeset
     5
d14c4e9e9c8e *** empty log message ***
nipkow
parents:
diff changeset
     6
The store.
d14c4e9e9c8e *** empty log message ***
nipkow
parents:
diff changeset
     7
d14c4e9e9c8e *** empty log message ***
nipkow
parents:
diff changeset
     8
The JVM builds on many notions already defined in Java.
d14c4e9e9c8e *** empty log message ***
nipkow
parents:
diff changeset
     9
Conform provides notions for the type safety proof of the Bytecode Verifier.
d14c4e9e9c8e *** empty log message ***
nipkow
parents:
diff changeset
    10
*)
d14c4e9e9c8e *** empty log message ***
nipkow
parents:
diff changeset
    11
d14c4e9e9c8e *** empty log message ***
nipkow
parents:
diff changeset
    12
Store = Conform +  
d14c4e9e9c8e *** empty log message ***
nipkow
parents:
diff changeset
    13
d14c4e9e9c8e *** empty log message ***
nipkow
parents:
diff changeset
    14
syntax
d14c4e9e9c8e *** empty log message ***
nipkow
parents:
diff changeset
    15
 value	:: "['a \\<leadsto> 'b,'a] \\<Rightarrow> 'b"			("_ \\<And> _")		
d14c4e9e9c8e *** empty log message ***
nipkow
parents:
diff changeset
    16
translations
d14c4e9e9c8e *** empty log message ***
nipkow
parents:
diff changeset
    17
 "t \\<And> x"  == "the (t x)"
d14c4e9e9c8e *** empty log message ***
nipkow
parents:
diff changeset
    18
d14c4e9e9c8e *** empty log message ***
nipkow
parents:
diff changeset
    19
constdefs
d14c4e9e9c8e *** empty log message ***
nipkow
parents:
diff changeset
    20
 newref :: "('a \\<leadsto> 'b) \\<Rightarrow> 'a"
d14c4e9e9c8e *** empty log message ***
nipkow
parents:
diff changeset
    21
 "newref s \\<equiv> \\<epsilon>v. s v = None"
d14c4e9e9c8e *** empty log message ***
nipkow
parents:
diff changeset
    22
d14c4e9e9c8e *** empty log message ***
nipkow
parents:
diff changeset
    23
end