Mercurial Mercurial > repos > isabelle / annotate
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/HOLCF/IOA/NTP/Packet.ML
author wenzelm
Sun, 25 Oct 1998 12:33:27 +0100
changeset 5769 6a422b22ba02
parent 5068 fb28eaa07e01
child 12218 6597093b77e7
permissions -rw-r--r--
tuned checklist;
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
3073
88366253a09a Old NTP files now running under the IOA meta theory based on HOLCF;
mueller
parents:
diff changeset 
     1
 
(*  Title:      HOL/IOA/NTP/Packet.ML
88366253a09a Old NTP files now running under the IOA meta theory based on HOLCF;
mueller
parents:
diff changeset 
     2
 
    ID:         $Id$
88366253a09a Old NTP files now running under the IOA meta theory based on HOLCF;
mueller
parents:
diff changeset 
     3
 
    Author:     Tobias Nipkow & Konrad Slind
88366253a09a Old NTP files now running under the IOA meta theory based on HOLCF;
mueller
parents:
diff changeset 
     4
 
    Copyright   1994  TU Muenchen
88366253a09a Old NTP files now running under the IOA meta theory based on HOLCF;
mueller
parents:
diff changeset 
     5
 












88366253a09a
Old NTP files now running under the IOA meta theory based on HOLCF;



mueller


parents: 

diff
changeset




     6


Packets













88366253a09a
Old NTP files now running under the IOA meta theory based on HOLCF;



mueller


parents: 

diff
changeset




     7


*)













88366253a09a
Old NTP files now running under the IOA meta theory based on HOLCF;



mueller


parents: 

diff
changeset




     8














88366253a09a
Old NTP files now running under the IOA meta theory based on HOLCF;



mueller


parents: 

diff
changeset




     9














88366253a09a
Old NTP files now running under the IOA meta theory based on HOLCF;



mueller


parents: 

diff
changeset




    10


(* Instantiation of a tautology? *)








5068






fb28eaa07e01
isatool fixgoal;



wenzelm


parents: 
4098

diff
changeset




    11


Goal "!x. x = packet --> hdr(x) = hdr(packet)";








4098






71e05eb27fb6
isatool fixclasimp;



wenzelm


parents: 
3073

diff
changeset




    12


 by (simp_tac (simpset() addsimps [Packet.hdr_def]) 1);








3073






88366253a09a
Old NTP files now running under the IOA meta theory based on HOLCF;



mueller


parents: 

diff
changeset




    13


qed "eq_packet_imp_eq_hdr"; 













88366253a09a
Old NTP files now running under the IOA meta theory based on HOLCF;



mueller


parents: 

diff
changeset




    14














88366253a09a
Old NTP files now running under the IOA meta theory based on HOLCF;



mueller


parents: 

diff
changeset




    15


Addsimps [Packet.hdr_def,Packet.msg_def];















isabelle