set traceBacktracking = false.
set traceDisplay = long.

type nonce.

const cf: channel [private].
const cf2: channel [private].

event connection().

set ignoreTypes = false.

let client () =
    new n : nonce;
    out (cf, n);
    in  (cf2, b: bitstring);
    event connection().

let server() =
    in (cf, n1: nonce);
    new ret : bitstring;
    out (cf2, ret).

query event(connection()).

process !client() | !server()


(* EXPECTPV
RESULT not event(connection) cannot be proved.
0.008s (user 0.004s + system 0.004s), max rss 7868K
END *)
