# Theory Action

Up to index of Isabelle/HOLCF/IOA/ABP

theory Action
imports Packet
begin

    (*  Title:      HOLCF/IOA/ABP/Action.thy
        ID:         $Id: Action.thy,v 1.5 2005/09/03 14:50:22 wenzelm Exp $
        Author:     Olaf Müller
    *)

    header {* The set of all actions of the system *}

    theory Action
    imports Packet
    begin

    datatype 'm action =
        Next | S_msg 'm | R_msg 'm
      | S_pkt "'m packet" | R_pkt "'m packet"
      | S_ack bool | R_ack bool

    ML {* use_legacy_bindings (the_context ()) *}

    end