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
R
ReLoC-v1
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
1
Issues
1
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
Dan Frumin
ReLoC-v1
Commits
8156cf85
Commit
8156cf85
authored
Jun 20, 2016
by
Amin Timany
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Change the invariant for configs in for bin-logrel
parent
2cbe75fc
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
7 additions
and
6 deletions
+7
-6
F_mu_ref_par/rules_binary.v
F_mu_ref_par/rules_binary.v
+3
-3
F_mu_ref_par/soundness_binary.v
F_mu_ref_par/soundness_binary.v
+4
-3
No files found.
F_mu_ref_par/rules_binary.v
View file @
8156cf85
...
...
@@ -51,10 +51,10 @@ Section lang_rules.
Notation
"cfg →⋆ cfg'"
:=
(
rtc
step
cfg
cfg
'
)
(
at
level
20
).
Definition
Spec_inv
(
ρ
ρ'
:
cfgUR
)
:
iPropG
lang
Σ
:=
(
■
of_cfg
ρ
→⋆
of_cfg
ρ'
)
%
I
.
Definition
Spec_inv
(
ρ
:
cfg
lang
)
(
ρ'
:
cfgUR
)
:
iPropG
lang
Σ
:=
(
■
ρ
→⋆
of_cfg
ρ'
)
%
I
.
Definition
Spec_ctx
(
S
:
namespace
)
(
ρ
:
cfg
UR
)
:
iPropG
lang
Σ
:=
Definition
Spec_ctx
(
S
:
namespace
)
(
ρ
:
cfg
lang
)
:
iPropG
lang
Σ
:=
auth_ctx
cfg_name
S
(
Spec_inv
ρ
).
Global
Instance
Spec_inv_Proper
:
Proper
((
≡
)
==>
(
≡
)
==>
(
≡
))
Spec_inv
.
...
...
F_mu_ref_par/soundness_binary.v
View file @
8156cf85
...
...
@@ -38,9 +38,11 @@ Section Soundness.
-
repeat
constructor
;
simpl
;
by
auto
.
}
iDestruct
"Hcfg"
as
{
γ
}
"[Hcfg1 Hcfg2]"
.
iAssert
(
@
auth
.
auth_inv
_
Σ
_
_
γ
(
Spec_inv
(
to_cfg
([
e
'
],
∅
)
)))
iAssert
(
@
auth
.
auth_inv
_
Σ
_
_
γ
(
Spec_inv
(
[
e
'
],
∅
)))
with
"[Hcfg1]"
as
"Hinv"
.
{
iExists
_
;
iFrame
"Hcfg1"
.
apply
const_intro
;
constructor
.
}
{
iExists
_
;
iFrame
"Hcfg1"
.
apply
const_intro
.
rewrite
from_to_cfg
;
constructor
.
}
iPvs
(
inv_alloc
(
nroot
.
@
"Fμ,ref,par"
.
@
3
)
with
"[Hinv]"
)
as
"#Hcfg"
;
trivial
.
{
iNext
.
iExact
"Hinv"
.
}
...
...
@@ -67,7 +69,6 @@ Section Soundness.
-
iExists
_.
rewrite
own_op
.
iDestruct
"Hown"
as
"[Ho1 Ho2]"
.
iSplitL
;
trivial
.
-
iPureIntro
.
rewrite
from_to_cfg
in
Hp
.
destruct
ρ'
as
[
th
hp
];
unfold
op
,
cmra_op
in
*
;
simpl
in
*
.
unfold
prod_op
,
of_cfg
in
*
;
simpl
in
*
.
destruct
th
as
[
|
r
th
];
simpl
in
*
;
eauto
.
...
...
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