(* 

The system should not prove strong secrecy

*)

private free secret.
noninterf secret.

free c.
free c1.
free c2.

process let (x,y) = secret in out(c,c1) else out(c,c2)

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