FAIL_TAC : string -> tactic
# g `if x then T else T`;;
# e(REWRITE_TAC[] THEN FAIL_TAC "Simple rewriting failed to solve goal");; Exception: Failure "Simple rewriting failed to solve goal".
# e(REWRITE_TAC[COND_ID] THEN FAIL_TAC "Using that failed to solve goal");; val it : goalstack = No subgoals