|
6008
|
1 |
(* Title: HOLCF/IOA/ABP/Action.ML
|
|
|
2 |
ID: $Id$
|
|
12218
|
3 |
Author: Olaf Müller
|
|
6008
|
4 |
|
|
12218
|
5 |
Derived rules for actions.
|
|
6008
|
6 |
*)
|
|
|
7 |
|
|
|
8 |
Goal "!!x. x = y ==> action_case a b c x = \
|
|
|
9 |
\ action_case a b c y";
|
|
|
10 |
by (Asm_simp_tac 1);
|
|
|
11 |
|
|
|
12 |
Addcongs [result()];
|