Mercurial Mercurial > repos > isabelle / file revision
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/HOL/HOLCF/IOA/NTP/Packet.thy
author haftmann
Thu, 24 Jul 2025 17:46:29 +0200
changeset 82902 99a720d3ed8f
parent 67613 ce654b0e6d69
permissions -rw-r--r--
clarified code setup

(*  Title:      HOL/HOLCF/IOA/NTP/Packet.thy
    Author:     Tobias Nipkow & Konrad Slind
*)

theory Packet
imports Multiset
begin

type_synonym
  'msg packet = "bool * 'msg"

definition
  hdr :: "'msg packet \<Rightarrow> bool" where
  "hdr \<equiv> fst"

definition
  msg :: "'msg packet \<Rightarrow> 'msg" where
  "msg \<equiv> snd"


text \<open>Instantiation of a tautology?\<close>
lemma eq_packet_imp_eq_hdr: "\<forall>x. x = packet \<longrightarrow> hdr(x) = hdr(packet)"
  by simp

declare hdr_def [simp] msg_def [simp]

end
isabelle