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
Jonas Kastberg
iris
Commits
e2882b61
Commit
e2882b61
authored
Feb 24, 2017
by
Robbert Krebbers
Browse files
Support envs_lookup_delete in internal iAssumptionCore tactic.
parent
711bead3
Changes
1
Hide whitespace changes
Inline
Side-by-side
theories/proofmode/tactics.v
View file @
e2882b61
...
...
@@ -122,6 +122,10 @@ Tactic Notation "iAssumptionCore" :=
first
[
is_evar
i
;
fail
1
|
env_cbv
;
reflexivity
]
|
|-
envs_lookup
?i
(
Envs
?
Γ
p
?
Γ
s
)
=
Some
(
_
,
?P
)
=>
is_evar
i
;
first
[
find
Γ
p
i
P
|
find
Γ
s
i
P
]
;
env_cbv
;
reflexivity
|
|-
envs_lookup_delete
?i
(
Envs
?
Γ
p
?
Γ
s
)
=
Some
(
_
,
?P
,
_
)
=>
first
[
is_evar
i
;
fail
1
|
env_cbv
;
reflexivity
]
|
|-
envs_lookup_delete
?i
(
Envs
?
Γ
p
?
Γ
s
)
=
Some
(
_
,
?P
,
_
)
=>
is_evar
i
;
first
[
find
Γ
p
i
P
|
find
Γ
s
i
P
]
;
env_cbv
;
reflexivity
end
.
Tactic
Notation
"iAssumption"
:
=
...
...
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