IOA/example/Action.ML
author nipkow
Wed, 09 Nov 1994 19:51:09 +0100
changeset 168 44ff2275d44f
parent 156 fd1be45b64bf
permissions -rw-r--r--
Added headers and made various small mods.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
168
44ff2275d44f Added headers and made various small mods.
nipkow
parents: 156
diff changeset
     1
(*  Title:      HOL/IOA/example/Action.ML
44ff2275d44f Added headers and made various small mods.
nipkow
parents: 156
diff changeset
     2
    ID:         $Id$
44ff2275d44f Added headers and made various small mods.
nipkow
parents: 156
diff changeset
     3
    Author:     Tobias Nipkow & Konrad Slind
44ff2275d44f Added headers and made various small mods.
nipkow
parents: 156
diff changeset
     4
    Copyright   1994  TU Muenchen
44ff2275d44f Added headers and made various small mods.
nipkow
parents: 156
diff changeset
     5
44ff2275d44f Added headers and made various small mods.
nipkow
parents: 156
diff changeset
     6
Derived rules for actions
44ff2275d44f Added headers and made various small mods.
nipkow
parents: 156
diff changeset
     7
*)
44ff2275d44f Added headers and made various small mods.
nipkow
parents: 156
diff changeset
     8
156
fd1be45b64bf added IOA to isabelle/HOL
clasohm
parents:
diff changeset
     9
goal Action.thy "!!x. x = y ==> action_case(a,b,c,d,e,f,g,h,i,j,x) =     \
fd1be45b64bf added IOA to isabelle/HOL
clasohm
parents:
diff changeset
    10
\                               action_case(a,b,c,d,e,f,g,h,i,j,y)";
fd1be45b64bf added IOA to isabelle/HOL
clasohm
parents:
diff changeset
    11
by (asm_simp_tac HOL_ss 1);
fd1be45b64bf added IOA to isabelle/HOL
clasohm
parents:
diff changeset
    12
fd1be45b64bf added IOA to isabelle/HOL
clasohm
parents:
diff changeset
    13
val action_ss = arith_ss addcongs [result()] addsimps Action.action.simps;