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