diff -r 37a6e2f55230 -r 44ff2275d44f IOA/example/Channels.thy --- a/IOA/example/Channels.thy Wed Nov 09 19:50:36 1994 +0100 +++ b/IOA/example/Channels.thy Wed Nov 09 19:51:09 1994 +0100 @@ -1,4 +1,12 @@ -Channels = IOA + Action + Multiset + "Lemmas" + Packet + +(* Title: HOL/IOA/example/Channels.thy + ID: $Id$ + Author: Tobias Nipkow & Konrad Slind + Copyright 1994 TU Muenchen + +The (faulty) transmission channels (both directions) +*) + +Channels = IOA + Action + Multiset + consts @@ -11,7 +19,7 @@ srch_ioa :: "('m action, 'm packet multiset)ioa" rsch_ioa :: "('m action, bool multiset)ioa" -rules +defs srch_asig_def "srch_asig == " -srch_trans_def "srch_trans == \ -\ {tr. let s = fst(tr); \ -\ t = snd(snd(tr)) \ -\ in \ -\ case fst(snd(tr)) \ -\ of S_msg(m) => False | \ -\ R_msg(m) => False | \ +srch_trans_def "srch_trans == \ +\ {tr. let s = fst(tr); \ +\ t = snd(snd(tr)) \ +\ in \ +\ case fst(snd(tr)) \ +\ of S_msg(m) => False | \ +\ R_msg(m) => False | \ \ S_pkt(pkt) => t = addm(s, pkt) | \ \ R_pkt(pkt) => count(s, pkt) ~= 0 & t = delm(s, pkt) | \ \ S_ack(b) => False | \ \ R_ack(b) => False | \ -\ C_m_s => False | \ -\ C_m_r => False | \ -\ C_r_s => False | \ +\ C_m_s => False | \ +\ C_m_r => False | \ +\ C_r_s => False | \ \ C_r_r(m) => False}" -rsch_trans_def "rsch_trans == \ -\ {tr. let s = fst(tr); \ -\ t = snd(snd(tr)) \ -\ in \ -\ case fst(snd(tr)) \ -\ of \ -\ S_msg(m) => False | \ -\ R_msg(m) => False | \ +rsch_trans_def "rsch_trans == \ +\ {tr. let s = fst(tr); \ +\ t = snd(snd(tr)) \ +\ in \ +\ case fst(snd(tr)) \ +\ of \ +\ S_msg(m) => False | \ +\ R_msg(m) => False | \ \ S_pkt(pkt) => False | \ \ R_pkt(pkt) => False | \ \ S_ack(b) => t = addm(s,b) | \ \ R_ack(b) => count(s,b) ~= 0 & t = delm(s,b) | \ -\ C_m_s => False | \ -\ C_m_r => False | \ -\ C_r_s => False | \ +\ C_m_s => False | \ +\ C_m_r => False | \ +\ C_r_s => False | \ \ C_r_r(m) => False}"