Solves a goal if supplied with the desired theorem (up to alpha-conversion).
ACCEPT_TAC maps a given theorem th to a tactic that solves any goal whose
conclusion is alpha-convertible to the conclusion of th.
ACCEPT_TAC th (A ?- g) fails if the term g is not alpha-convertible to the
conclusion of the supplied theorem th.
The theorem BOOL_CASES_AX = |- !t. (t <=> T) \/ (t <=> F) can be used to
solve the goal:
# g `!x. (x <=> T) \/ (x <=> F)`;;
# e(ACCEPT_TAC BOOL_CASES_AX);;
val it : goalstack = No subgoals
Used for completing proofs by supplying an existing theorem, such as an axiom,
or a lemma already proved. Often this can simply be done by rewriting, but
there are times when greater delicacy is wanted.