(* Title: HOL/HOLCF/IOA/Storage/Action.thy Author: Olaf Müller*)section \<open>The set of all actions of the system\<close>theory Actionimports Mainbegindatatype action = New | Loc nat | Free natlemma [cong]: "!!x. x = y ==> case_action a b c x = case_action a b c y" by simpend