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
mueller@1139
     1
(*  Title:      HOL/IOA/example/Packet.thy
nipkow@1050
     2
    ID:         $Id$
mueller@1139
     3
    Author:     Tobias Nipkow & Konrad Slind
mueller@1139
     4
    Copyright   1994  TU Muenchen
nipkow@1050
     5
nipkow@1050
     6
Packets
nipkow@1050
     7
*)
nipkow@1050
     8
nipkow@1050
     9
Packet = Arith +
nipkow@1050
    10
nipkow@1050
    11
types
nipkow@1050
    12
nipkow@1050
    13
   'msg packet = "bool * 'msg"
nipkow@1050
    14
clasohm@1570
    15
constdefs
nipkow@1050
    16
clasohm@1376
    17
  hdr  :: 'msg packet => bool
clasohm@1570
    18
  "hdr == fst"
nipkow@1050
    19
clasohm@1570
    20
  msg :: 'msg packet => 'msg
clasohm@1570
    21
  "msg == snd"
nipkow@1050
    22
nipkow@1050
    23
end