equal
deleted
inserted
replaced
1 (* Title: HOLCF/IOA/ABP/Action.ML |
1 (* Title: HOLCF/IOA/ABP/Action.ML |
2 ID: $Id$ |
2 ID: $Id$ |
3 Author: Olaf Mueller |
3 Author: Olaf Müller |
4 Copyright 1997 TU Muenchen |
4 License: GPL (GNU GENERAL PUBLIC LICENSE) |
5 |
5 |
6 Derived rules for actions |
6 Derived rules for actions. |
7 *) |
7 *) |
8 |
8 |
9 Goal "!!x. x = y ==> action_case a b c x = \ |
9 Goal "!!x. x = y ==> action_case a b c x = \ |
10 \ action_case a b c y"; |
10 \ action_case a b c y"; |
11 by (Asm_simp_tac 1); |
11 by (Asm_simp_tac 1); |