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