diff -r f04b33ce250f -r a4dc62a46ee4 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