mk_exists : term * term -> term
# mk_exists(`x:num`,`x + 1 = 1 + x`);; val it : term = `?x. x + 1 = 1 + x`