author | lcp |
Tue, 25 Apr 1995 11:14:03 +0200 | |
changeset 1072 | 0140ff702b23 |
parent 1050 | 0c36c6a52a1d |
child 1139 | 993e475e70e2 |
permissions | -rw-r--r-- |
1050 | 1 |
(* Title: HOL/IOA/ABP/Packet.thy |
2 |
ID: $Id$ |
|
3 |
Author: Tobias Nipkow & Olaf Mueller |
|
4 |
Copyright 1995 TU Muenchen |
|
5 |
||
6 |
Packets |
|
7 |
*) |
|
8 |
||
9 |
Packet = Arith + |
|
10 |
||
11 |
types |
|
12 |
||
13 |
'msg packet = "bool * 'msg" |
|
14 |
||
15 |
consts |
|
16 |
||
17 |
hdr :: "'msg packet => bool" |
|
18 |
msg :: "'msg packet => 'msg" |
|
19 |
||
20 |
defs |
|
21 |
||
22 |
hdr_def "hdr == fst" |
|
23 |
msg_def "msg == snd" |
|
24 |
||
25 |
end |