src/HOL/IOA/ABP/Action.ML
author nipkow
Tue Apr 08 10:48:42 1997 +0200 (1997-04-08)
changeset 2919 953a47dc0519
parent 1266 3ae9fe3c0f68
permissions -rw-r--r--
Dep. on Provers/nat_transitive
     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 x =     \
    10 \                               action_case a b c d e f g y";
    11 by (Asm_simp_tac 1);
    12 
    13 Addcongs [result()];