src/HOLCF/IOA/ABP/Impl_finite.thy
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:      HOLCF/IOA/ABP/Impl.thy
     2     ID:         $Id$
     3     Author:     Olaf Müller
     4 
     5 The implementation.
     6 *)
     7 
     8 Impl_finite = Sender + Receiver +  Abschannel_finite +
     9   
    10 types 
    11 
    12 'm impl_fin_state 
    13 = "'m sender_state * 'm receiver_state * 'm packet list * bool list"
    14 (*  sender_state   *  receiver_state   *    srch_state  * rsch_state *)
    15 
    16 constdefs
    17 
    18  impl_fin_ioa    :: ('m action, 'm impl_fin_state)ioa
    19  "impl_fin_ioa == (sender_ioa || receiver_ioa || srch_fin_ioa ||
    20                    rsch_fin_ioa)"
    21 
    22  sen_fin         :: 'm impl_fin_state => 'm sender_state
    23  "sen_fin == fst"
    24 
    25  rec_fin         :: 'm impl_fin_state => 'm receiver_state
    26  "rec_fin == fst o snd"
    27 
    28  srch_fin        :: 'm impl_fin_state => 'm packet list
    29  "srch_fin == fst o snd o snd"
    30 
    31  rsch_fin        :: 'm impl_fin_state => bool list
    32  "rsch_fin == snd o snd o snd"
    33 
    34 end
    35