IOA/example/Action.ML
changeset 252 a4dc62a46ee4
parent 251 f04b33ce250f
child 253 132634d24019
equal deleted inserted replaced
251:f04b33ce250f 252:a4dc62a46ee4
     1 (*  Title:      HOL/IOA/example/Action.ML
       
     2     ID:         $Id$
       
     3     Author:     Tobias Nipkow & Konrad Slind
       
     4     Copyright   1994  TU Muenchen
       
     5 
       
     6 Derived rules for actions
       
     7 *)
       
     8 
       
     9 goal Action.thy "!!x. x = y ==> action_case(a,b,c,d,e,f,g,h,i,j,x) =     \
       
    10 \                               action_case(a,b,c,d,e,f,g,h,i,j,y)";
       
    11 by (asm_simp_tac HOL_ss 1);
       
    12 
       
    13 val action_ss = arith_ss addcongs [result()] addsimps Action.action.simps;