(* This just an imprecision bug: the verfier should find
   that a is secret *)

fun f/2.
fun g/1.

equation f(x,g(y)) = f(y,g(x)).

data c0/0.
data c1/0.

free c.
private free a.
query attacker:a.

process
	if f(c0,g(c1)) <> f(c1,g(c0)) then out(c, a)

(* EXPECTPV
RESULT not attacker:a[] is true.
0.004s (user 0.004s + system 0.000s), max rss 6792K
END *)
