type nonce.

fun hash(nonce): nonce.

free c: channel.

process
	new n: nonce;
	out(c, choice[n, hash(n)])

(* EXPECTPV
RESULT Observational equivalence is true.
0.024s (user 0.016s + system 0.008s), max rss 8680K
END *)
