IOA/example/Action.ML
author lcp
Fri, 11 Nov 1994 10:35:03 +0100
changeset 170 3a8d722fd3ff
parent 168 44ff2275d44f
permissions -rw-r--r--
HOL,ZF/Makefile: enclosed multiple "use" calls in parentheses. This ensures that if one dies, all die. BUT NOT Pure/Makefile, where PolyML.use"POLY" makes the identifier "use" visible.

(*  Title:      HOL/IOA/example/Action.ML
    ID:         $Id$
    Author:     Tobias Nipkow & Konrad Slind
    Copyright   1994  TU Muenchen

Derived rules for actions
*)

goal Action.thy "!!x. x = y ==> action_case(a,b,c,d,e,f,g,h,i,j,x) =     \
\                               action_case(a,b,c,d,e,f,g,h,i,j,y)";
by (asm_simp_tac HOL_ss 1);

val action_ss = arith_ss addcongs [result()] addsimps Action.action.simps;