free c:channel.

fun h(bitstring):bitstring.

const a:bitstring.

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

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

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

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