IOA/example/Action.thy

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/IOA/example/Action.thy	Wed Nov 02 11:50:09 1994 +0100
@@ -0,0 +1,6 @@
+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