src/HOL/MicroJava/JVM/Store.ML
changeset 9969 4753185f1dd2
parent 8011 d14c4e9e9c8e
child 9998 09bf8fcd1c6e
equal deleted inserted replaced
9968:264b16d934f9 9969:4753185f1dd2
     4     Copyright   1999 Technische Universitaet Muenchen
     4     Copyright   1999 Technische Universitaet Muenchen
     5 *)
     5 *)
     6 
     6 
     7 Goalw [newref_def]
     7 Goalw [newref_def]
     8  "hp x = None \\<longrightarrow> hp (newref hp) = None";
     8  "hp x = None \\<longrightarrow> hp (newref hp) = None";
     9 by (fast_tac (claset() addIs [selectI2EX] addss (simpset())) 1);
     9 by (fast_tac (claset() addIs [someI2EX] addss (simpset())) 1);
    10 qed_spec_mp "newref_None";
    10 qed_spec_mp "newref_None";