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