src/HOLCF/IOA/NTP/Action.thy

Modified a few defs and proofs because of the changes to theory Finite.thy.

(*  Title:      HOL/IOA/NTP/Action.thy
    ID:         $Id$
    Author:     Tobias Nipkow & Konrad Slind
    Copyright   1994  TU Muenchen

The set of all actions of the system
*)

Action = Packet +
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