(* 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 \ bool" where
"hdr \ fst"
definition
msg :: "'msg packet \ 'msg" where
"msg \ snd"
text \<open>Instantiation of a tautology?\<close>
lemma eq_packet_imp_eq_hdr: "\x. x = packet \ hdr(x) = hdr(packet)"
by simp
declare hdr_def [simp] msg_def [simp]
end
¤ Dauer der Verarbeitung: 0.3 Sekunden
(vorverarbeitet)
¤
|
Haftungshinweis
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
|