# Theory Action

Up to index of Isabelle/HOLCF/IOA/Storage

theory Action
imports Main
begin

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