IOA/example/Packet.thy

--- a/IOA/example/Packet.thy	Tue Oct 24 14:59:17 1995 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,25 +0,0 @@
-(*  Title:      HOL/IOA/example/Packet.thy
-    ID:         $Id$
-    Author:     Tobias Nipkow & Konrad Slind
-    Copyright   1994  TU Muenchen
-
-Packets
-*)
-
-Packet = Arith +
-
-types
-
-   'msg packet = "bool * 'msg"
-
-consts
-
-  hdr  :: "'msg packet => bool"
-  msg :: "'msg packet => 'msg"
-
-defs
-
-  hdr_def "hdr == fst"
-  msg_def "msg == snd"
-
-end