ALL_TAC : tactic
# g `~(n MOD 2 = 0) <=> n MOD 2 = 1`;; ...
# e(SUBGOAL_THEN `n MOD 2 < 2` ASSUME_TAC THENL
[ARITH_TAC;
...rest of proof...]);;
# e(SUBGOL_THEN `n MOD 2 < 2` ASSUME_TAC THENL [ARITH_TAC; ALL_TAC] THEN
...rest of proof...);;