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
e8fb0e28
Commit
e8fb0e28
authored
Aug 28, 2017
by
Robbert Krebbers
Browse files
Small optimization for iSpecialize.
parent
b60e126a
Changes
1
Hide whitespace changes
Inline
Side-by-side
theories/proofmode/tactics.v
View file @
e8fb0e28
...
...
@@ -475,7 +475,14 @@ Tactic Notation "iSpecializeCore" open_constr(t) "as" constr(p) :=
let
pat
:
=
spec_pat
.
parse
pat
in
lazymatch
type
of
H
with
|
string
=>
lazymatch
eval
compute
in
(
p
&&
negb
(
existsb
spec_pat_modal
pat
))
with
(* The lemma [tac_specialize_persistent_helper] allows one to use all
spatial hypotheses for both proving the premises of the lemma we
specialize as well as those of the remaining goal. We can only use it when
the result of the specialization is persistent, and no modality is
eliminated. As an optimization, we do not use this when only universal
quantifiers are instantiated. *)
lazymatch
eval
compute
in
(
bool_decide
(
pat
≠
[])
&&
p
&&
negb
(
existsb
spec_pat_modal
pat
))
with
|
true
=>
eapply
tac_specialize_persistent_helper
with
_
H
_
_
_;
[
env_reflexivity
||
fail
"iSpecialize:"
H
"not found"
...
...
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