author | paulson |
Thu, 18 Jan 1996 10:38:29 +0100 | |
changeset 1444 | 23ceb1dc9755 |
parent 1376 | 92f83b9d17e1 |
child 1570 | fd1b9c721ac7 |
permissions | -rw-r--r-- |
1051 | 1 |
(* Title: HOL/IOA/NTP/Packet.thy |
2 |
ID: $Id$ |
|
3 |
Author: Tobias Nipkow & Konrad Slind |
|
4 |
Copyright 1994 TU Muenchen |
|
5 |
||
6 |
Packets |
|
7 |
*) |
|
8 |
||
1328 | 9 |
Packet = Arith + Multiset + |
1051 | 10 |
|
11 |
types |
|
12 |
||
13 |
'msg packet = "bool * 'msg" |
|
14 |
||
15 |
consts |
|
16 |
||
1376 | 17 |
hdr :: 'msg packet => bool |
18 |
msg :: 'msg packet => 'msg |
|
1051 | 19 |
|
20 |
defs |
|
21 |
||
22 |
hdr_def "hdr == fst" |
|
23 |
msg_def "msg == snd" |
|
24 |
||
25 |
end |