src/HOL/HOLCF/IOA/ABP/Packet.thy
author wenzelm
Mon, 20 May 2024 15:43:51 +0200
changeset 80182 29f2b8ff84f3
parent 62002 f1599e98c4d0
permissions -rw-r--r--
proper support for "isabelle update -D DIR": avoid accidental exclusion of select_dirs (amending e5dafe9e120f);

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

section \<open>Packets\<close>

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