mirror of
https://github.com/achlipala/frap.git
synced 2024-11-27 23:06:20 +00:00
Make 'cases' tactic handle disjunction
This commit is contained in:
parent
5a28d4fe6a
commit
89863fd999
1 changed files with 4 additions and 1 deletions
|
@ -208,7 +208,10 @@ Ltac linear_arithmetic := intros;
|
|||
Ltac equality := intuition congruence.
|
||||
|
||||
Ltac cases E :=
|
||||
((is_var E; destruct E)
|
||||
((repeat match type of E with
|
||||
| _ \/ _ => destruct E as [E | E]
|
||||
end)
|
||||
|| (is_var E; destruct E)
|
||||
|| match type of E with
|
||||
| {_} + {_} => destruct E
|
||||
| _ => let Heq := fresh "Heq" in destruct E eqn:Heq
|
||||
|
|
Loading…
Reference in a new issue