IOA/example/Action.thy

Proofs of inv1 and inv4 now use less_le_trans instead of
less_leq_less.

(*  Title:      HOL/IOA/example/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