1
2
Goal "[| EX! z. P(a,z); P(a,b); P(a,c) |] ==> b = c";
3
by (Blast_tac 1);
4
qed "ex1_functional";