src/HOLCF/IOA/NTP/Packet.ML
author kleing
Mon Jun 21 10:25:57 2004 +0200 (2004-06-21)
changeset 14981 e73f8140af78
parent 12218 6597093b77e7
child 17244 0b2ff9541727
permissions -rw-r--r--
Merged in license change from Isabelle2004
     1 (*  Title:      HOL/IOA/NTP/Packet.ML
     2     ID:         $Id$
     3     Author:     Tobias Nipkow & Konrad Slind
     4 
     5 Packets.
     6 *)
     7 
     8 (* Instantiation of a tautology? *)
     9 Goal "!x. x = packet --> hdr(x) = hdr(packet)";
    10  by (simp_tac (simpset() addsimps [Packet.hdr_def]) 1);
    11 qed "eq_packet_imp_eq_hdr"; 
    12 
    13 Addsimps [Packet.hdr_def,Packet.msg_def];