type nonce.

channel c.

fun f(nonce):bitstring.
fun g(nonce):bitstring.

reduc forall x: nonce; h(f(x)) = true.

process
	new a: nonce;
	out(c, choice[f(a), g(a)])

(* EXPECTPV
RESULT Observational equivalence cannot be proved.
0.016s (user 0.012s + system 0.004s), max rss 8680K
END *)
