(* 

The system should prove non-injective agreement

*)

query ev:endpar1(z) ==> ev:beginpar1(z).

fun c0/0.
fun g/1.
fun i/2.
fun j/1.

equation j(x) = x.

process event beginpar1(i(c0,j(g(c0)))); event endpar1(i(c0,j(g(c0))))

(* EXPECTPV
RESULT ev:endpar1(z) ==> ev:beginpar1(z) is true.
0.008s (user 0.004s + system 0.004s), max rss 6980K
END *)
