(* Equivalence is true because the computation of r(a,b) always fails *)

free c, a, b.

reduc r(x,x) = x.

process
        let x = r(a,b) in let y = choice[x,a] in out(c,y)

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