(* Title: HOL/IOA/example/Packet.thy
ID: $Id$
Author: Tobias Nipkow & Konrad Slind
Copyright 1994 TU Muenchen
Packets
*)
Packet = Arith +
types
'msg packet = "bool * 'msg"
consts
hdr :: "'msg packet => bool"
msg :: "'msg packet => 'msg"
defs
hdr_def "hdr == fst"
msg_def "msg == snd"
end