BOOL_CASES_TAC : term -> tactic
A ?- t
============================ BOOL_CASES_TAC `x`
A ?- t[F/x] A ?- t[T/x]
# g `(b ==> ~b) ==> (b ==> a)`;;
# e(BOOL_CASES_TAC `b:bool` THEN REWRITE_TAC[]);; val it : goalstack = No subgoals