author | clasohm |
Wed, 04 Oct 1995 13:12:14 +0100 | |
changeset 1266 | 3ae9fe3c0f68 |
parent 1138 | 82fd99d5a6ff |
permissions | -rw-r--r-- |
1138 | 1 |
(* Title: HOL/IOA/example/Action.ML |
1050 | 2 |
ID: $Id$ |
1138 | 3 |
Author: Tobias Nipkow & Konrad Slind |
4 |
Copyright 1994 TU Muenchen |
|
1050 | 5 |
|
6 |
Derived rules for actions |
|
7 |
*) |
|
8 |
||
9 |
goal Action.thy "!!x. x = y ==> action_case a b c d e f g x = \ |
|
10 |
\ action_case a b c d e f g y"; |
|
1266 | 11 |
by (Asm_simp_tac 1); |
1050 | 12 |
|
1266 | 13 |
Addcongs [result()]; |