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.thy
author wenzelm
Wed, 23 Jul 2025 14:53:21 +0200
changeset 82898 89da4dcd1fa8
parent 62116 bc178c0fe1a1
permissions -rw-r--r--
clarified colors, following d6a14ed060fb;

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

section \<open>The implementation\<close>

theory Impl
imports Sender Receiver Abschannel
begin

type_synonym
  'm impl_state = "'m sender_state * 'm receiver_state * 'm packet list * bool list"
  (*  sender_state   *  receiver_state   *    srch_state  * rsch_state *)

definition
 impl_ioa :: "('m action, 'm impl_state)ioa" where
 "impl_ioa = (sender_ioa \<parallel> receiver_ioa \<parallel> srch_ioa \<parallel> rsch_ioa)"

definition
 sen :: "'m impl_state => 'm sender_state" where
 "sen = fst"

definition
 rec :: "'m impl_state => 'm receiver_state" where
 "rec = fst \<circ> snd"

definition
 srch :: "'m impl_state => 'm packet list" where
 "srch = fst \<circ> snd \<circ> snd"

definition
 rsch :: "'m impl_state => bool list" where
 "rsch = snd \<circ> snd \<circ> snd"

end
isabelle