src/HOL/IOA/ABP/Packet.thy
author paulson
Mon Oct 07 10:28:44 1996 +0200 (1996-10-07)
changeset 2056 93c093620c28
parent 1570 fd1b9c721ac7
permissions -rw-r--r--
Removed commands made redundant by new one-point rules
     1 (*  Title:      HOL/IOA/example/Packet.thy
     2     ID:         $Id$
     3     Author:     Tobias Nipkow & Konrad Slind
     4     Copyright   1994  TU Muenchen
     5 
     6 Packets
     7 *)
     8 
     9 Packet = Arith +
    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