src/HOL/HOLCF/IOA/ABP/Sender.thy
changeset 41476 0fa9629aa399
parent 40945 b8703f63bfb2
child 42151 4da4fc77664b
equal deleted inserted replaced
41468:0e4f6cf20cdf 41476:0fa9629aa399
     6 
     6 
     7 theory Sender
     7 theory Sender
     8 imports IOA Action Lemmas
     8 imports IOA Action Lemmas
     9 begin
     9 begin
    10 
    10 
    11 types
    11 type_synonym
    12   'm sender_state = "'m list  *  bool"  -- {* messages, Alternating Bit *}
    12   'm sender_state = "'m list  *  bool"  -- {* messages, Alternating Bit *}
    13 
    13 
    14 definition
    14 definition
    15   sq :: "'m sender_state => 'm list" where
    15   sq :: "'m sender_state => 'm list" where
    16   "sq = fst"
    16   "sq = fst"