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
Iris
Iris
Commits
50b368c0
Commit
50b368c0
authored
Jun 11, 2019
by
Ralf Jung
Browse files
note a few places where we had to use ssreflect to force the use unification algorithm
parent
0a05a8c0
Pipeline
#17355
passed with stage
in 14 minutes and 17 seconds
Changes
3
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
theories/base_logic/lib/proph_map.v
View file @
50b368c0
...
...
@@ -134,10 +134,8 @@ Section proph_map.
rewrite
proph_eq
/
proph_def
.
iIntros
"Hp1 Hp2"
.
iCombine
"Hp1 Hp2"
as
"Hp"
.
iDestruct
(
own_valid
with
"Hp"
)
as
%
Hp
.
(* FIXME: [apply auth_frag_valid in Hp] and
[rewrite ->auth_frag_valid in Hp] both should work but do not. *)
move
:
Hp
.
rewrite
auth_frag_valid
singleton_valid
=>
Hp
.
done
.
(* FIXME: FIXME(Coq #6294): needs new unification *)
move
:
Hp
.
rewrite
auth_frag_valid
singleton_valid
//.
Qed
.
Lemma
proph_map_new_proph
p
ps
pvs
:
...
...
@@ -169,7 +167,8 @@ Section proph_map.
assert
(
vs
=
v
::
proph_list_resolves
pvs
p
)
as
->.
{
rewrite
(
Hres
p
vs
HR
).
simpl
.
by
rewrite
decide_True
.
}
iMod
(
own_update_2
with
"H● Hp"
)
as
"[H● H◯]"
.
{
eapply
auth_update
.
apply
:
singleton_local_update
.
{
(* FIXME: FIXME(Coq #6294): needs new unification *)
eapply
auth_update
.
apply
:
singleton_local_update
.
-
by
rewrite
/
to_proph_map
lookup_fmap
HR
.
-
by
apply
(
exclusive_local_update
_
(
Excl
(
proph_list_resolves
pvs
p
:
list
(
leibnizC
V
)))).
}
rewrite
/
to_proph_map
-
fmap_insert
.
...
...
theories/heap_lang/lib/counter.v
View file @
50b368c0
...
...
@@ -60,8 +60,9 @@ Section mono_proof.
wp_cas_suc
.
iModIntro
.
iSplitL
"Hl Hγ"
.
{
iNext
.
iExists
(
S
c
).
rewrite
Nat2Z
.
inj_succ
Z
.
add_1_l
.
by
iFrame
.
}
wp_if
.
iApply
"HΦ"
;
iExists
γ
;
repeat
iSplit
;
eauto
.
iApply
(
own_mono
with
"Hγf"
).
apply
:
auth_frag_mono
.
by
apply
mnat_included
,
le_n_S
.
iApply
(
own_mono
with
"Hγf"
).
(* FIXME: FIXME(Coq #6294): needs new unification *)
apply
:
auth_frag_mono
.
by
apply
mnat_included
,
le_n_S
.
-
wp_cas_fail
;
first
(
by
intros
[=
?%
Nat2Z
.
inj
]).
iModIntro
.
iSplitL
"Hl Hγ"
;
[
iNext
;
iExists
c'
;
by
iFrame
|].
wp_if
.
iApply
(
"IH"
with
"[Hγf] [HΦ]"
)
;
last
by
auto
.
...
...
theories/program_logic/ownp.v
View file @
50b368c0
...
...
@@ -118,8 +118,8 @@ Section lifting.
iModIntro
;
iSplit
;
[
by
destruct
s
|]
;
iNext
;
iIntros
(
e2
σ
2
efs
Hstep
).
iDestruct
"Hσκs"
as
"Hσ"
.
rewrite
/
ownP
.
iMod
(
own_update_2
with
"Hσ Hσf"
)
as
"[Hσ Hσf]"
.
{
apply
auth_update
.
apply
:
option_local_update
.
by
apply
:
(
exclusive_local_update
_
(
Excl
σ
2
)).
}
{
apply
auth_update
.
apply
option_local_update
.
by
apply
(
exclusive_local_update
_
(
Excl
σ
2
)).
}
iFrame
"Hσ"
.
iApply
(
"H"
with
"[]"
)
;
eauto
with
iFrame
.
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