ASM_CASES_TAC : term -> tactic
A ?- t
================================ ASM_CASES_TAC u
A u {u} ?- t A u {~u} ?- t
- let val u = Term `u:bool`
val g = Term `(P:bool -> bool) u`
in
ASM_CASES_TAC u ([],g)
end;
([([`u`], `P u`),
([`~u`], `P u`)], fn) : tactic_result