src/HOLCF/IOA/NTP/Spec.thy
changeset 40774 0437dbc127b3
parent 40773 6c12f5e24e34
child 40775 ed7a4eadb2f6
     1.1 --- a/src/HOLCF/IOA/NTP/Spec.thy	Sat Nov 27 14:34:54 2010 -0800
     1.2 +++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.3 @@ -1,40 +0,0 @@
     1.4 -(*  Title:      HOL/IOA/NTP/Spec.thy
     1.5 -    Author:     Tobias Nipkow & Konrad Slind
     1.6 -*)
     1.7 -
     1.8 -header {* The specification of reliable transmission *}
     1.9 -
    1.10 -theory Spec
    1.11 -imports IOA Action
    1.12 -begin
    1.13 -
    1.14 -definition
    1.15 -  spec_sig :: "'m action signature" where
    1.16 -  sig_def: "spec_sig = (UN m.{S_msg(m)}, 
    1.17 -                        UN m.{R_msg(m)}, 
    1.18 -                        {})"
    1.19 -
    1.20 -definition
    1.21 -  spec_trans :: "('m action, 'm list)transition set" where
    1.22 -  trans_def: "spec_trans =
    1.23 -   {tr. let s = fst(tr);                            
    1.24 -            t = snd(snd(tr))                        
    1.25 -        in                                          
    1.26 -        case fst(snd(tr))                           
    1.27 -        of                                          
    1.28 -        S_msg(m) => t = s@[m]  |                    
    1.29 -        R_msg(m) => s = (m#t)  |                    
    1.30 -        S_pkt(pkt) => False |                    
    1.31 -        R_pkt(pkt) => False |                    
    1.32 -        S_ack(b) => False |                      
    1.33 -        R_ack(b) => False |                      
    1.34 -        C_m_s => False |                            
    1.35 -        C_m_r => False |                            
    1.36 -        C_r_s => False |                            
    1.37 -        C_r_r(m) => False}"
    1.38 -
    1.39 -definition
    1.40 -  spec_ioa :: "('m action, 'm list)ioa" where
    1.41 -  ioa_def: "spec_ioa = (spec_sig, {[]}, spec_trans,{},{})"
    1.42 -
    1.43 -end