Mercurial Mercurial > repos > isabelle / file revision
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/HOL/HOLCF/IOA/ABP/Impl_finite.thy
author huffman
Sat, 27 Nov 2010 16:08:10 -0800
changeset 40774 0437dbc127b3
parent 35174 src/HOLCF/IOA/ABP/Impl_finite.thy@e15040ae75d7
child 40945 b8703f63bfb2
permissions -rw-r--r--
moved directory src/HOLCF to src/HOL/HOLCF; added HOLCF theories to src/HOL/IsaMakefile;

(*  Title:      HOLCF/IOA/ABP/Impl.thy
    Author:     Olaf Müller
*)

header {* The implementation *}

theory Impl_finite
imports Sender Receiver Abschannel_finite
begin

types
  'm impl_fin_state
    = "'m sender_state * 'm receiver_state * 'm packet list * bool list"
(*  sender_state   *  receiver_state   *    srch_state  * rsch_state *)

definition
  impl_fin_ioa :: "('m action, 'm impl_fin_state)ioa" where
  "impl_fin_ioa = (sender_ioa || receiver_ioa || srch_fin_ioa ||
                  rsch_fin_ioa)"

definition
  sen_fin :: "'m impl_fin_state => 'm sender_state" where
  "sen_fin = fst"

definition
  rec_fin :: "'m impl_fin_state => 'm receiver_state" where
  "rec_fin = fst o snd"

definition
  srch_fin :: "'m impl_fin_state => 'm packet list" where
  "srch_fin = fst o snd o snd"

definition
  rsch_fin :: "'m impl_fin_state => bool list" where
  "rsch_fin = snd o snd o snd"

end
isabelle