Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Jan
iris-coq
Commits
cea60198
Commit
cea60198
authored
Mar 12, 2018
by
Ralf Jung
Browse files
Coq future-compat: use qualified name for
parent
4b77018c
Changes
1
Hide whitespace changes
Inline
Side-by-side
theories/proofmode/coq_tactics.v
View file @
cea60198
...
...
@@ -92,7 +92,7 @@ Definition envs_simple_replace {M} (i : ident) (p : bool) (Γ : env (uPred M))
Definition
envs_replace
{
M
}
(
i
:
ident
)
(
p
q
:
bool
)
(
Γ
:
env
(
uPred
M
))
(
Δ
:
envs
M
)
:
option
(
envs
M
)
:
=
if
eqb
p
q
then
envs_simple_replace
i
p
Γ
Δ
if
Bool
.
eqb
p
q
then
envs_simple_replace
i
p
Γ
Δ
else
envs_app
q
Γ
(
envs_delete
i
p
Δ
).
Definition
env_spatial_is_nil
{
M
}
(
Δ
:
envs
M
)
:
=
...
...
@@ -285,7 +285,7 @@ Lemma envs_replace_sound' Δ Δ' i p q Γ :
envs_replace
i
p
q
Γ
Δ
=
Some
Δ
'
→
of_envs
(
envs_delete
i
p
Δ
)
⊢
□
?q
[
∗
]
Γ
-
∗
of_envs
Δ
'
.
Proof
.
rewrite
/
envs_replace
;
destruct
(
eqb
_
_
)
eqn
:
Hpq
.
rewrite
/
envs_replace
;
destruct
(
Bool
.
eqb
_
_
)
eqn
:
Hpq
.
-
apply
eqb_prop
in
Hpq
as
->.
apply
envs_simple_replace_sound'
.
-
apply
envs_app_sound
.
Qed
.
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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