| author | nipkow | 
| Tue, 18 Mar 1997 08:42:18 +0100 | |
| changeset 2800 | 9741c4c6b62b | 
| parent 1570 | fd1b9c721ac7 | 
| permissions | -rw-r--r-- | 
| 1139 | 1  | 
(* Title: HOL/IOA/example/Packet.thy  | 
| 1050 | 2  | 
ID: $Id$  | 
| 1139 | 3  | 
Author: Tobias Nipkow & Konrad Slind  | 
4  | 
Copyright 1994 TU Muenchen  | 
|
| 1050 | 5  | 
|
6  | 
Packets  | 
|
7  | 
*)  | 
|
8  | 
||
9  | 
Packet = Arith +  | 
|
10  | 
||
11  | 
types  | 
|
12  | 
||
13  | 
'msg packet = "bool * 'msg"  | 
|
14  | 
||
| 1570 | 15  | 
constdefs  | 
| 1050 | 16  | 
|
| 1376 | 17  | 
hdr :: 'msg packet => bool  | 
| 1570 | 18  | 
"hdr == fst"  | 
| 1050 | 19  | 
|
| 1570 | 20  | 
msg :: 'msg packet => 'msg  | 
21  | 
"msg == snd"  | 
|
| 1050 | 22  | 
|
23  | 
end  |