Theory Action

Up to index of Isabelle/HOLCF/IOA/NTP

theory Action
imports Packet
begin

(*  Title:      HOL/IOA/NTP/Action.thy
    ID:         $Id: Action.thy,v 1.6 2006/05/27 19:00:31 wenzelm Exp $
    Author:     Tobias Nipkow & Konrad Slind
*)

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

theory Action
imports Packet
begin

datatype 'm action = S_msg 'm | R_msg 'm
                   | S_pkt "'m packet" | R_pkt "'m packet"
                   | S_ack bool | R_ack bool
                   | C_m_s | C_m_r | C_r_s | C_r_r 'm

end