src/HOL/MicroJava/JVM/Store.ML
author nipkow
Thu, 11 Nov 1999 12:23:45 +0100
changeset 8011 d14c4e9e9c8e
child 9969 4753185f1dd2
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
d14c4e9e9c8e *** empty log message ***
nipkow
parents:
diff changeset
     7
Goalw [newref_def]
d14c4e9e9c8e *** empty log message ***
nipkow
parents:
diff changeset
     8
 "hp x = None \\<longrightarrow> hp (newref hp) = None";
d14c4e9e9c8e *** empty log message ***
nipkow
parents:
diff changeset
     9
by (fast_tac (claset() addIs [selectI2EX] addss (simpset())) 1);
d14c4e9e9c8e *** empty log message ***
nipkow
parents:
diff changeset
    10
qed_spec_mp "newref_None";