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
ddd48268
Commit
ddd48268
authored
Feb 18, 2018
by
Jacques-Henri Jourdan
Browse files
Fix typo.
parent
75c98fae
Pipeline
#6862
passed with stage
in 10 minutes and 41 seconds
Changes
1
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
theories/proofmode/tactics.v
View file @
ddd48268
...
...
@@ -630,8 +630,8 @@ Tactic Notation "iIntoValid" open_constr(t) :=
in order to make sure we do not unfold [bi_valid]. *)
let
tT
:
=
type
of
t
in
first
[
let
tT'
:
=
eval
hnf
in
tT
in
go_specilize
t
tT'
|
let
tT'
:
=
eval
cbv
zeta
in
tT
in
go_specilize
t
tT'
[
let
tT'
:
=
eval
hnf
in
tT
in
go_speci
a
lize
t
tT'
|
let
tT'
:
=
eval
cbv
zeta
in
tT
in
go_speci
a
lize
t
tT'
|
let
tT'
:
=
eval
cbv
zeta
in
tT
in
eapply
(
as_valid_1
tT
)
;
(* Doing [apply _] here fails because that will try to solve all evars
...
...
@@ -641,7 +641,7 @@ Tactic Notation "iIntoValid" open_constr(t) :=
elsewhere. With [typeclasses eauto], that seems to work better. *)
[
solve
[
typeclasses
eauto
with
typeclass_instances
]
||
fail
"iPoseProof: not a BI assertion"
|
exact
t
]]
with
go_specilize
t
tT
:
=
with
go_speci
a
lize
t
tT
:
=
lazymatch
tT
with
(* We do not use hnf of tT, because, if
entailment is not opaque, then it would
unfold it. *)
...
...
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