pl/frap
1
0
Fork 0
mirror of https://github.com/achlipala/frap.git synced 2024-12-01 00:26:18 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Make 'cases' tactic handle disjunction

Browse source
This commit is contained in:
Adam Chlipala 2020-02-08 14:47:19 -05:00
parent 5a28d4fe6a
commit 89863fd999
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
FrapWithoutSets.v
View file

@ -208,7 +208,10 @@ Ltac linear_arithmetic := intros;
Ltac equality := intuition congruence. Ltac equality := intuition congruence.
Ltac cases E := 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 || match type of E with
| {_} + {_} => destruct E | {_} + {_} => destruct E
| _ => let Heq := fresh "Heq" in destruct E eqn:Heq | _ => let Heq := fresh "Heq" in destruct E eqn:Heq