author | mueller |
Wed, 31 May 1995 10:45:00 +0200 | |
changeset 1138 | 82fd99d5a6ff |
parent 1050 | 0c36c6a52a1d |
child 1266 | 3ae9fe3c0f68 |
permissions | -rw-r--r-- |
(* 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 x = \ \ action_case a b c d e f g y"; by (asm_simp_tac HOL_ss 1); val action_ss = arith_ss addcongs [result()] addsimps Action.action.simps;