TRY : tactic -> tactic
# g `(x + 1) EXP 2 = x EXP 2 + 2 * x + 1 /\
(x EXP 2 = y EXP 2 ==> x = y) /\
(x < y ==> 2 * x + 1 < 2 * y)`;;
...
# e(REPEAT CONJ_TAC THEN TRY ARITH_TAC);; val it : goalstack = 1 subgoal (1 total) `x EXP 2 = y EXP 2 ==> x = y`