equal
deleted
inserted
replaced
1 (* Title: HOL/MicroJava/J/State.ML |
1 (* Title: HOL/MicroJava/J/State.ML |
2 ID: $Id$ |
2 ID: $Id$ |
3 Author: David von Oheimb |
3 Author: David von Oheimb |
4 Copyright 1999 Technische Universitaet Muenchen |
4 Copyright 1999 Technische Universitaet Muenchen |
5 *) |
5 *) |
6 |
|
7 val the_Addr_Addr = prove_goalw thy [the_Addr_def] |
|
8 "the_Addr (Addr a) = a" (K [Auto_tac]); |
|
9 |
|
10 Addsimps [the_Addr_Addr]; |
|
11 |
6 |
12 val obj_ty_def2 = prove_goalw thy [obj_ty_def] "obj_ty (C,fs) = Class C" |
7 val obj_ty_def2 = prove_goalw thy [obj_ty_def] "obj_ty (C,fs) = Class C" |
13 (K [Simp_tac 1]); |
8 (K [Simp_tac 1]); |
14 |
9 |
15 Addsimps [obj_ty_def2]; |
10 Addsimps [obj_ty_def2]; |