| author | wenzelm | 
| Thu, 24 Apr 1997 19:47:53 +0200 | |
| changeset 3049 | 79c1ba7effb2 | 
| 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 |