mk_uexists : term * term -> term
# mk_uexists(`n:num`,`prime(n) /\ EVEN(n)`);; val it : term = `?!n. prime n /\ EVEN n`