Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Support
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
R
ReLoC-v1
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
1
Issues
1
List
Boards
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
Dan Frumin
ReLoC-v1
Commits
f33a4e73
Commit
f33a4e73
authored
Nov 29, 2017
by
Dan Frumin
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Add ghost threadpool tests
parent
7aceb1b3
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
27 additions
and
0 deletions
+27
-0
_CoqProject
_CoqProject
+1
-0
ghosttp.v
theories/tests/ghosttp.v
+26
-0
No files found.
_CoqProject
View file @
f33a4e73
...
...
@@ -44,5 +44,6 @@ theories/examples/symbol.v
theories/examples/generative.v
theories/examples/Y.v
theories/tests/typetest.v
theories/tests/ghosttp.v
theories/tests/tactics.v
theories/tests/tactics2.v
theories/tests/ghosttp.v
0 → 100644
View file @
f33a4e73
From
iris_logrel
Require
Export
logrel
.
From
iris
.
proofmode
Require
Import
tactics
.
Section
contents
.
Context
`
{
logrelG
Σ
}
.
Lemma
ex
Δ
Γ
:
{
⊤
,
⊤
;
Δ
;
Γ
}
⊨
(
λ
:
"x"
,
"x"
<-
#
1
)
≤
log
≤
(
λ
:
"x"
,
Fork
(
"x"
<-
#
1
);;
Fork
(
"x"
<-
#
0
))
:
TArrow
(
Tref
TNat
)
TUnit
.
Proof
.
iApply
bin_log_related_arrow_val
;
eauto
.
iAlways
.
iIntros
(
?
?
)
"Hx"
.
simpl
.
iDestruct
"Hx"
as
([
x1
x2
])
"[% #Hx]"
;
simplify_eq
/=
.
rel_let_l
.
rel_let_r
.
rel_store_l_atomic
.
iInv
(
logN
.
@
(
x1
,
x2
))
as
([
v1
v2
])
"(Hx1 & Hx2 & Hvs)"
"Hcl"
.
iModIntro
.
iExists
_.
iFrame
.
iNext
.
iIntros
"Hx1"
.
rel_fork_r
as
i
"Hi"
.
rel_seq_r
.
rel_fork_r
as
j
"Hj"
.
apply
bin_log_related_spec_ctx
.
iDestruct
1
as
(
?
)
"?"
.
tp_store
i
.
iMod
(
"Hcl"
with
"[-]"
)
as
"_"
.
{
iNext
.
iExists
(
_
,
_
);
iFrame
.
iExists
_
;
eauto
.
}
iApply
bin_log_related_unit
.
Qed
.
End
contents
.
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