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/Correctness.thy
author kleing
Mon, 21 Jun 2004 10:25:57 +0200
changeset 14981 e73f8140af78
parent 12218 6597093b77e7
child 17244 0b2ff9541727
permissions -rw-r--r--
Merged in license change from Isabelle2004
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/Correctness.thy
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
 







12218





wenzelm


parents: 
4816

diff
changeset




     5


The main correctness proof: Impl implements Spec.








3073






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



mueller


parents: 

diff
changeset




     6


*)













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



mueller


parents: 

diff
changeset




     7









4816






64f075872f69
simplification of explicit theory usage and merges



oheimb


parents: 
3898

diff
changeset




     8


Correctness = Impl + Spec +








3073






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


constdefs













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



mueller


parents: 

diff
changeset




    11














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



mueller


parents: 

diff
changeset




    12


  hom :: 'm impl_state => 'm list













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



mueller


parents: 

diff
changeset




    13


  "hom(s) == rq(rec(s)) @ (if rbit(rec s) = sbit(sen s) then sq(sen s) 








3898






f6bf42312e9e
Simplified proof.



nipkow


parents: 
3073

diff
changeset




    14


                           else tl(sq(sen s)))"








3073






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



mueller


parents: 

diff
changeset




    15














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



mueller


parents: 

diff
changeset




    16


end















isabelle