free c:channel.

fun h(bitstring):bitstring.

const a:bitstring.

event A(bitstring).
event B(bitstring).
event C(bitstring).

query x:bitstring, y:bitstring; inj-event(C(x)) ==> (inj-event(B(x))  ==> inj-event(A(y))).

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

(* EXPECTPV
RESULT inj-event(C(x_1)) ==> (inj-event(B(x_1)) ==> inj-event(A(y))) is false.
RESULT (but inj-event(C(x_1)) ==> inj-event(B(x_1)) is true.)
0.012s (user 0.008s + system 0.004s), max rss 8408K
END *)
