| changeset 3076 | 3e8d80cdd3e7 |
| parent 3075 | 3c4fc62d494c |
| child 3077 | 750b766645b8 |
| 3075:3c4fc62d494c | 3076:3e8d80cdd3e7 |
|---|---|
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)"; |
|
12 by (simp_tac (!simpset addsimps [Packet.hdr_def]) 1); |
|
13 qed "eq_packet_imp_eq_hdr"; |
|
14 |
|
15 Addsimps [Packet.hdr_def,Packet.msg_def]; |