DISJ_CASES_TAC : thm_tactic
A ?- t
============================ DISJ_CASES_TAC (A |- u \/ v)
A u {u} ?- t A u {v}?- t
- DISJ_CASES_TAC th ([],Term`(P:num -> bool) m`);
([([`m = 0`], `P m`),
([`?n. m = SUC n`], `P m`)], fn) : tactic_result