Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
George Pirlea
Iris
Commits
6111fa8b
Commit
6111fa8b
authored
Mar 04, 2016
by
Robbert Krebbers
Browse files
simplify_eq now handles existT if the indexing type is decidable.
parent
a0855325
Changes
1
Hide whitespace changes
Inline
Side-by-side
prelude/tactics.v
View file @
6111fa8b
...
...
@@ -205,18 +205,20 @@ Tactic Notation "simplify_eq" := repeat
|
H
:
?f
_
=
?f
_
|-
_
=>
apply
(
inj
f
)
in
H
|
H
:
?f
_
_
=
?f
_
_
|-
_
=>
apply
(
inj2
f
)
in
H
;
destruct
H
(* before [injection] to circumvent bug #2939 in some situations *)
|
H
:
?f
_
=
?f
_
|-
_
=>
injection
H
as
H
|
H
:
?f
_
=
?f
_
|-
_
=>
progress
injection
H
as
H
(* first hyp will be named [H], subsequent hyps will be given fresh names *)
|
H
:
?f
_
_
=
?f
_
_
|-
_
=>
injection
H
as
H
|
H
:
?f
_
_
_
=
?f
_
_
_
|-
_
=>
injection
H
as
H
|
H
:
?f
_
_
_
_
=
?f
_
_
_
_
|-
_
=>
injection
H
as
H
|
H
:
?f
_
_
_
_
_
=
?f
_
_
_
_
_
|-
_
=>
injection
H
as
H
|
H
:
?f
_
_
_
_
_
_
=
?f
_
_
_
_
_
_
|-
_
=>
injection
H
as
H
|
H
:
?f
_
_
=
?f
_
_
|-
_
=>
progress
injection
H
as
H
|
H
:
?f
_
_
_
=
?f
_
_
_
|-
_
=>
progress
injection
H
as
H
|
H
:
?f
_
_
_
_
=
?f
_
_
_
_
|-
_
=>
progress
injection
H
as
H
|
H
:
?f
_
_
_
_
_
=
?f
_
_
_
_
_
|-
_
=>
progress
injection
H
as
H
|
H
:
?f
_
_
_
_
_
_
=
?f
_
_
_
_
_
_
|-
_
=>
progress
injection
H
as
H
|
H
:
?x
=
?x
|-
_
=>
clear
H
(* unclear how to generalize the below *)
|
H1
:
?o
=
Some
?x
,
H2
:
?o
=
Some
?y
|-
_
=>
assert
(
y
=
x
)
by
congruence
;
clear
H2
|
H1
:
?o
=
Some
?x
,
H2
:
?o
=
None
|-
_
=>
congruence
|
H
:
@
existT
?A
_
_
_
=
existT
_
_
|-
_
=>
apply
(
Eqdep_dec
.
inj_pair2_eq_dec
_
(
decide_rel
(@
eq
A
)))
in
H
end
.
Tactic
Notation
"simplify_eq"
"/="
:
=
repeat
(
progress
csimpl
in
*
||
simplify_eq
).
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment