# Theory Packet

Up to index of Isabelle/HOLCF/IOA/ABP

theory Packet
imports Main
begin

    (*  Title:      HOLCF/IOA/ABP/Packet.thy
        ID:         $Id: Packet.thy,v 1.6 2005/09/03 14:50:23 wenzelm Exp $
        Author:     Olaf Müller
    *)

    header {* Packets *}

    theory Packet
    imports Main
    begin

    types
      'msg packet = "bool * 'msg"

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

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

    ML {* use_legacy_bindings (the_context ()) *}

    end