src/HOLCF/IOA/Storage/Action.ML
author wenzelm
Mon, 28 Jun 1999 23:02:38 +0200
changeset 6853 80f88b762816
parent 6008 d0e9b1619468
child 12218 6597093b77e7
permissions -rw-r--r--
improved RANGE;
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
6008
d0e9b1619468 Memory storage case study from PhD p.240;
mueller
parents:
diff changeset
     1
(*  Title:      HOLCF/IOA/ABP/Action.ML
d0e9b1619468 Memory storage case study from PhD p.240;
mueller
parents:
diff changeset
     2
    ID:         $Id$
d0e9b1619468 Memory storage case study from PhD p.240;
mueller
parents:
diff changeset
     3
    Author:     Olaf Mueller
d0e9b1619468 Memory storage case study from PhD p.240;
mueller
parents:
diff changeset
     4
    Copyright   1997  TU Muenchen
d0e9b1619468 Memory storage case study from PhD p.240;
mueller
parents:
diff changeset
     5
d0e9b1619468 Memory storage case study from PhD p.240;
mueller
parents:
diff changeset
     6
Derived rules for actions
d0e9b1619468 Memory storage case study from PhD p.240;
mueller
parents:
diff changeset
     7
*)
d0e9b1619468 Memory storage case study from PhD p.240;
mueller
parents:
diff changeset
     8
d0e9b1619468 Memory storage case study from PhD p.240;
mueller
parents:
diff changeset
     9
Goal "!!x. x = y ==> action_case a b c x =     \
d0e9b1619468 Memory storage case study from PhD p.240;
mueller
parents:
diff changeset
    10
\                        action_case a b c y";
d0e9b1619468 Memory storage case study from PhD p.240;
mueller
parents:
diff changeset
    11
by (Asm_simp_tac 1);
d0e9b1619468 Memory storage case study from PhD p.240;
mueller
parents:
diff changeset
    12
d0e9b1619468 Memory storage case study from PhD p.240;
mueller
parents:
diff changeset
    13
Addcongs [result()];