(* Should find that observational equivalence is wrong *)

param verboseRules = yes.

data true/0.
fun pk/1.
reduc ispk(pk(x))  = true.

free c, n1, n2.
private free autorR.
noninterf autorR among (pk(n1), pk(n2)).



process
	if ispk(autorR) = true then out(c, autorR)

(* EXPECTPV
RESULT Non-interference autorR among (pk(n1[]), pk(n2[])) cannot be proved.
0.008s (user 0.008s + system 0.000s), max rss 6968K
END *)
