| changeset 168 | 44ff2275d44f |
| parent 156 | fd1be45b64bf |
| 167:37a6e2f55230 | 168:44ff2275d44f |
|---|---|
1 (* Title: HOL/IOA/example/Action.ML |
|
2 ID: $Id$ |
|
3 Author: Tobias Nipkow & Konrad Slind |
|
4 Copyright 1994 TU Muenchen |
|
5 |
|
6 Derived rules for actions |
|
7 *) |
|
8 |
|
1 goal Action.thy "!!x. x = y ==> action_case(a,b,c,d,e,f,g,h,i,j,x) = \ |
9 goal Action.thy "!!x. x = y ==> action_case(a,b,c,d,e,f,g,h,i,j,x) = \ |
2 \ action_case(a,b,c,d,e,f,g,h,i,j,y)"; |
10 \ action_case(a,b,c,d,e,f,g,h,i,j,y)"; |
3 by (asm_simp_tac HOL_ss 1); |
11 by (asm_simp_tac HOL_ss 1); |
4 |
12 |
5 val action_ss = arith_ss addcongs [result()] addsimps Action.action.simps; |
13 val action_ss = arith_ss addcongs [result()] addsimps Action.action.simps; |