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
Iris
Iris
Commits
768be4ca
Commit
768be4ca
authored
Feb 13, 2018
by
Ralf Jung
Browse files
solve AsValid without solving all the other evars first
parent
5e1597b7
Changes
1
Hide whitespace changes
Inline
Side-by-side
theories/proofmode/tactics.v
View file @
768be4ca
...
...
@@ -628,8 +628,8 @@ Tactic Notation "iIntoValid" open_constr(t) :=
let
e
:
=
fresh
in
evar
(
e
:
id
T
)
;
let
e'
:
=
eval
unfold
e
in
e
in
clear
e
;
go
(
t
e'
)
|
_
=>
let
tT'
:
=
eval
cbv
zeta
in
tT
in
apply
(
as_valid_1
tT'
)
;
[
apply
_
||
fail
"iPoseProof: not a BI assertion"
|
exact
t
]
let
tT'
:
=
eval
cbv
zeta
in
tT
in
e
apply
(
as_valid_1
tT'
)
;
[
solve
[
typeclasses
eauto
with
typeclass_instances
]
||
fail
"iPoseProof: not a BI assertion"
|
exact
t
]
end
in
go
t
.
...
...
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