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
Marianna Rapoport
iris-coq
Commits
230444d4
Commit
230444d4
authored
Aug 05, 2016
by
Ralf Jung
Browse files
Merge branch 'iris3.0' of gitlab.mpi-sws.org:FP/iris-coq into iris3.0
parents
92f0cde6
a94cfec9
Changes
1
Hide whitespace changes
Inline
Side-by-side
program_logic/iris.v
0 → 100644
View file @
230444d4
From
iris
.
program_logic
Require
Export
ghost_ownership
language
.
From
iris
.
prelude
Require
Export
coPset
.
From
iris
.
algebra
Require
Import
gmap
auth
agree
gset
coPset
upred_big_op
.
Class
irisPreG
(
Λ
:
language
)
(
Σ
:
gFunctors
)
:
Set
:
=
IrisPreG
{
state_inG
:
>
inG
Σ
(
authUR
(
optionUR
(
exclR
(
stateC
Λ
))))
;
invariant_inG
:
>
inG
Σ
(
authUR
(
gmapUR
positive
(
agreeR
(
laterC
(
iPreProp
Σ
)))))
;
enabled_inG
:
>
inG
Σ
coPset_disjUR
;
disabled_inG
:
>
inG
Σ
(
gset_disjUR
positive
)
;
}.
Class
irisG
(
Λ
:
language
)
(
Σ
:
gFunctors
)
:
Set
:
=
IrisG
{
iris_pre_inG
:
>
irisPreG
Λ
Σ
;
state_name
:
gname
;
invariant_name
:
gname
;
enabled_name
:
gname
;
disabled_name
:
gname
;
}.
Definition
irisPreGF
(
Λ
:
language
)
:
gFunctorList
:
=
[
GFunctor
(
constRF
(
authUR
(
optionUR
(
exclR
(
stateC
Λ
)))))
;
GFunctor
(
authRF
(
gmapURF
positive
(
agreeRF
(
laterCF
idCF
))))
;
GFunctor
(
constRF
coPset_disjUR
)
;
GFunctor
(
constRF
(
gset_disjUR
positive
))].
Instance
inGF_barrierG
`
{
H
:
inGFs
Σ
(
irisPreGF
Λ
)}
:
irisPreG
Λ
Σ
.
Proof
.
by
destruct
H
as
(?%
inGF_inG
&
?%
inGF_inG
&
?%
inGF_inG
&
?%
inGF_inG
&
_
).
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