(* ProVerif should find that event e(a) is unreachable:
   a <> b is wrong, so p(x) is always false and event e
   in unreachable. *)

const a: bitstring.
const b: bitstring.

equation a = b.

pred p(bitstring).

clauses
	a <> b -> p(a).

event e(bitstring).

query event(e(a)).

process
        let x: bitstring suchthat p(x) in
	event e(x)

(* EXPECTPV
RESULT not event(e(a)) is true.
0.004s (user 0.004s + system 0.000s), max rss 7184K
END *)
