(* ProVerif should find an attack:
   in(c,=h(s)) can be executed iff secret = s *)

free c.
free s.

private free secret.
noninterf secret.

private fun h/1.

process
   out(c,h(secret)); in(c,=h(s)); out(c,c)

(* EXPECTPV
RESULT Non-interference secret cannot be proved.
0.008s (user 0.004s + system 0.004s), max rss 6928K
END *)
