author | paulson |
Fri, 03 Jan 1997 15:01:55 +0100 | |
changeset 2469 | b50b8c0eec01 |
parent 1328 | 9a449a91425d |
permissions | -rw-r--r-- |
1051 | 1 |
(* Title: HOL/IOA/NTP/Packet.ML |
2 |
ID: $Id$ |
|
3 |
Author: Tobias Nipkow & Konrad Slind |
|
4 |
Copyright 1994 TU Muenchen |
|
5 |
||
6 |
Packets |
|
7 |
*) |
|
8 |
||
9 |
||
10 |
(* Instantiation of a tautology? *) |
|
11 |
goal Packet.thy "!x. x = packet --> hdr(x) = hdr(packet)"; |
|
1266 | 12 |
by (simp_tac (!simpset addsimps [Packet.hdr_def]) 1); |
1328 | 13 |
qed "eq_packet_imp_eq_hdr"; |
14 |
||
15 |
Addsimps [Packet.hdr_def,Packet.msg_def]; |