src/HOLCF/IOA/NTP/Packet.thy
author nipkow
Thu Oct 12 18:38:23 2000 +0200 (2000-10-12)
changeset 10212 33fe2d701ddd
parent 3073 88366253a09a
child 12218 6597093b77e7
permissions -rw-r--r--
*** empty log message ***
     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 
     9 Packet = Multiset +  
    10 
    11 types
    12 
    13    'msg packet = "bool * 'msg"
    14 
    15 constdefs
    16 
    17   hdr  :: 'msg packet => bool
    18   "hdr == fst"
    19 
    20   msg :: 'msg packet => 'msg
    21   "msg == snd"
    22 
    23 end