ABBREV_TAC : term -> (string * thm) list * term -> goalstate
# g `(12345 + 12345) + f(12345 + 12345) = f(12345 + 12345)`;; Warning: Free variables in goal: f val it : goalstack = 1 subgoal (1 total) `(12345 + 12345) + f (12345 + 12345) = f (12345 + 12345)` # e(ABBREV_TAC `n = 12345 + 12345`);; val it : goalstack = 1 subgoal (1 total) 0 [`12345 + 12345 = n`] `n + f n = f n`