(* Title: HOLCF/IOA/ABP/Action.thy ID: $Id: Action.thy,v 1.4 2005/09/03 14:50:25 wenzelm Exp $ Author: Olaf Müller *) header {* The set of all actions of the system *} theory Action imports Main begin datatype action = New | Loc nat | Free nat lemma [cong]: "!!x. x = y ==> action_case a b c x = action_case a b c y" by simp ML {* use_legacy_bindings (the_context ()) *} end
lemma
x = y ==> action_case a b c x = action_case a b c y