author | nipkow |
Wed, 09 Nov 1994 19:51:09 +0100 | |
changeset 168 | 44ff2275d44f |
parent 156 | fd1be45b64bf |
permissions | -rw-r--r-- |
168 | 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 |
||
156 | 9 |
goal Action.thy "!!x. x = y ==> action_case(a,b,c,d,e,f,g,h,i,j,x) = \ |
10 |
\ action_case(a,b,c,d,e,f,g,h,i,j,y)"; |
|
11 |
by (asm_simp_tac HOL_ss 1); |
|
12 |
||
13 |
val action_ss = arith_ss addcongs [result()] addsimps Action.action.simps; |