Theory Action

(*  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