| changeset 9969 | 4753185f1dd2 |
| parent 8011 | d14c4e9e9c8e |
| child 9998 | 09bf8fcd1c6e |
| 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"; |