src/HOL/HOLCF/IOA/ABP/Packet.thy
author wenzelm
Mon, 18 Aug 2014 12:17:31 +0200
changeset 57978 8f4a332500e4
parent 42151 4da4fc77664b
child 58880 0baae4311a9f
permissions -rw-r--r--
Added tag Isabelle2014-RC4 for changeset 113b43b84412

(*  Title:      HOL/HOLCF/IOA/ABP/Packet.thy
    Author:     Olaf Müller
*)

header {* Packets *}

theory Packet
imports Main
begin

type_synonym
  'msg packet = "bool * 'msg"

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

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

end