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 ProcSn_d : seq (ia Frame s2 (Tuple b d)) (Tn_d d b) = Sn_d d b.