event Bob.

(* Setting required to disprove the query *)
set nounifIgnoreAFewTimes = auto.

query event(Bob).

let Cellule(c:channel) =
  in(c,x:bitstring);
  event Bob;
  new b:bitstring;
  out(c,b).

process
  new c:channel;
  (
      new a:bitstring; out(c,a) (* Initialisation *)
    | ! Cellule(c)
  )

(* EXPECTPV
RESULT not event(Bob) is false.
0.004s (user 0.004s + system 0.000s), max rss 7272K
END *)
