Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
C
c
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
0
Issues
0
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
Iris
c
Commits
745b8584
Commit
745b8584
authored
Mar 06, 2019
by
Dan Frumin
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
bump std++ & iris
parent
b9f71b10
Pipeline
#15440
passed with stage
in 10 minutes and 19 seconds
Changes
3
Pipelines
9
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
7 additions
and
7 deletions
+7
-7
opam
opam
+1
-1
theories/c_translation/monad.v
theories/c_translation/monad.v
+3
-3
theories/lib/flock.v
theories/lib/flock.v
+3
-3
No files found.
opam
View file @
745b8584
...
...
@@ -9,5 +9,5 @@ build: [make "-j%{jobs}%"]
install: [make "install"]
remove: [ "sh" "-c" "rm -rf '%{lib}%/coq/user-contrib/iris-c" ]
depends: [
"coq-iris" { (= "dev.2019-0
2-25.0.9b44e889
") | (= "dev") }
"coq-iris" { (= "dev.2019-0
3-06.2.f5d03e25
") | (= "dev") }
]
theories/c_translation/monad.v
View file @
745b8584
...
...
@@ -127,7 +127,7 @@ Section cwp_rules.
iApply
(
wp_wand
with
"Hcwp"
).
iIntros
(
v
)
"HΦ"
.
iIntros
(
γ
env
l
I
)
"#Hflock Hres #Heq"
.
iMod
(
flock_res_alloc_
strong
_
(
dom
(
gset
lock_res_gname
)
I
)
with
"Hflock HR1"
)
as
(
ρ
)
"[% Hres']"
;
first
done
.
iMod
(
flock_res_alloc_
cofinite
_
(
dom
(
gset
lock_res_gname
)
I
)
with
"Hflock HR1"
)
as
(
ρ
)
"[% Hres']"
;
first
done
.
pose
(
I'
:
=
<[
ρ
:
=(
1
%
Qp
,
R1
)]>
I
).
assert
(
I
!!
ρ
=
None
)
by
by
eapply
not_elem_of_dom
.
iSpecialize
(
"HΦ"
$!
_
env
l
I'
with
"Hflock [Hres Hres'] []"
).
...
...
@@ -217,7 +217,7 @@ Section cwp_rules.
iDestruct
(
"Hwp"
with
"HR"
)
as
(
Q
)
"[HQ Hwp]"
.
wp_apply
(
newflock_spec
cmonadN
)
;
first
done
.
iIntros
(
k
γ
'
)
"#Hlock2"
.
iMod
(
flock_res_alloc_
strong
_
∅
_
_
(
env_inv
env
∗
Q
)%
I
with
"Hlock2 [$HQ $Henv]"
)
as
(
ρ
)
"[_ Hres]"
;
first
done
.
iMod
(
flock_res_alloc_
cofinite
_
∅
_
_
(
env_inv
env
∗
Q
)%
I
with
"Hlock2 [$HQ $Henv]"
)
as
(
ρ
)
"[_ Hres]"
;
first
done
.
wp_let
.
wp_apply
(
wp_wand
with
"Hwp"
)
;
iIntros
(
ev'
)
"Hwp"
.
wp_bind
(
ev'
_
_
).
iApply
(
wp_wand
with
"[Hwp Hres]"
).
...
...
@@ -337,7 +337,7 @@ Section cwp_run.
iSpecialize
(
"Hwp"
$!
amg
).
rewrite
cwp_eq
/
cwp_def
.
wp_apply
(
newflock_spec
cmonadN
)
;
first
done
.
iIntros
(
k
γ
'
)
"#Hlock"
.
iApply
wp_fupd
.
iMod
(
flock_res_alloc_
strong
_
∅
_
_
(
env_inv
env
)%
I
iMod
(
flock_res_alloc_
cofinite
_
∅
_
_
(
env_inv
env
)%
I
with
"Hlock [Henv Hσ]"
)
as
(
ρ
)
"[_ Hres]"
;
first
done
.
{
iNext
.
iExists
∅
,
∅
.
iFrame
.
iPureIntro
;
set_solver
.
}
wp_let
.
...
...
theories/lib/flock.v
View file @
745b8584
...
...
@@ -265,7 +265,7 @@ Section flock.
(** ** Spectral operations *)
Lemma
flock_res_alloc_
strong
(
X
:
gset
lock_res_gname
)
γ
lk
R
E
:
Lemma
flock_res_alloc_
cofinite
(
X
:
gset
lock_res_gname
)
γ
lk
R
E
:
↑
N
⊆
E
→
is_flock
γ
lk
-
∗
▷
R
={
E
}=
∗
∃
ρ
,
⌜ρ
∉
X
⌝
∧
flock_res
γ
ρ
1
R
.
...
...
@@ -285,8 +285,8 @@ Section flock.
set
(
X
₂
:
=
set_map
flock_token2_name
(
dom
(
gset
lock_res_gname
)
(
fp
∪
from_active
fa
))
:
gset
gname
).
iMod
(
own_alloc_
strong
(
Excl
())
X
₁
)
as
(
γ
t
₁
Ht
₁
)
"T1"
;
first
done
.
iMod
(
own_alloc_
strong
(
Excl
())
X
₂
)
as
(
γ
t
₂
Ht
₂
)
"T2"
;
first
done
.
iMod
(
own_alloc_
cofinite
(
Excl
())
X
₁
)
as
(
γ
t
₁
Ht
₁
)
"T1"
;
first
done
.
iMod
(
own_alloc_
cofinite
(
Excl
())
X
₂
)
as
(
γ
t
₂
Ht
₂
)
"T2"
;
first
done
.
iMod
(
cinv_alloc
_
(
resN
.@(
γ
t
₁
,
γ
t
₂
))
(
R
∗
own
γ
t
₁
(
Excl
())
∨
own
γ
t
₂
(
Excl
()))%
I
with
"[HR T1]"
)
as
(
γ
c
)
"[#HR Hρ]"
.
{
iNext
.
iLeft
.
by
iFrame
.
}
set
(
ρ
:
=
...
...
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