Section PROC.
Variable b : bit.
Variable j : one.
Variable d : D.
Axiom
ChanK :
Frame +
(fun x : Frame =>
seq (ia Frame r2 x)
(seq
(alt (seq (ia one int i) (ia Frame s3 x))
(seq (ia one int i) (ia Frame s3 lce)))
(K i))) = K j.
Axiom
ChanL :
frame +
(fun n : frame =>
seq (ia frame r5 n)
(seq
(alt (seq (ia one int i) (ia frame s6 n))
(seq (ia one int i) (ia frame s6 sce)))
(L i))) = L j.
Axiom
ProcTn_d :
alt
(seq (alt (ia frame r6 (tuple (toggle b))) (ia frame r6 sce))
(Sn_d d b)) (ia frame r6 (tuple b)) = Tn_d d b.

Axiom ProcR : seq (Rn e1) (seq (Rn e0) (R i)) = R j.