free c:channel.

fun h(bitstring):bitstring.

const a:bitstring [private].

event A(bitstring).

query x:bitstring; event(A(x)) ==> x <> h(a).

process
  in(c,x:bitstring);
  event A(x)

(* EXPECTPV
RESULT event(A(x_1)) ==> x_1 ≠ h(a) is true.
0.008s (user 0.000s + system 0.008s), max rss 7152K
END *)
