src/HOLCF/IOA/NTP/Packet.thy
author nipkow
Thu, 05 Jun 1997 14:40:35 +0200
changeset 3414 804c8a178a7f
parent 3073 88366253a09a
child 10212 33fe2d701ddd
permissions -rw-r--r--
Modified a few defs and proofs because of the changes to theory Finite.thy.

(*  Title:      HOL/IOA/NTP/Packet.thy
    ID:         $Id$
    Author:     Tobias Nipkow & Konrad Slind
    Copyright   1994  TU Muenchen

Packets
*)

Packet = Arith + Multiset +  

types

   'msg packet = "bool * 'msg"

constdefs

  hdr  :: 'msg packet => bool
  "hdr == fst"

  msg :: 'msg packet => 'msg
  "msg == snd"

end