IOA/example/Packet.thy

Proofs of inv1 and inv4 now use less_le_trans instead of
less_leq_less.

(*  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