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
Dan Frumin
iris-coq
Commits
6b6e322c
Commit
6b6e322c
authored
Feb 15, 2016
by
Ralf Jung
Browse files
auth.v: reduce noise by putting definitions in a section
parent
13011e3c
Changes
1
Hide whitespace changes
Inline
Side-by-side
program_logic/auth.v
View file @
6b6e322c
...
...
@@ -10,14 +10,14 @@ Class AuthInG Λ Σ (i : gid) (A : cmraT) `{Empty A} := {
(
*
TODO
:
Once
we
switched
to
RAs
,
it
is
no
longer
necessary
to
remember
that
a
is
constantly
valid
.
*
)
Definition
auth_inv
{
Λ
Σ
A
}
(
i
:
gid
)
`
{
AuthInG
Λ
Σ
i
A
}
(
γ
:
g
name
)
(
φ
:
A
→
iPropG
Λ
Σ
)
:
iPropG
Λ
Σ
:=
(
∃
a
,
(
■
✓
a
∧
own
i
γ
(
●
a
))
★
φ
a
)
%
I
.
Definition
auth_own
{
Λ
Σ
A
}
(
i
:
gid
)
`
{
AuthInG
Λ
Σ
i
A
}
(
γ
:
gname
)
(
a
:
A
)
:
iPropG
Λ
Σ
:=
own
i
γ
(
◯
a
).
Definition
auth_ctx
{
Λ
Σ
A
}
(
i
:
gid
)
`
{
AuthInG
Λ
Σ
i
A
}
(
γ
:
gname
)
(
N
:
namespace
)
(
φ
:
A
→
iPropG
Λ
Σ
)
:
iPropG
Λ
Σ
:=
inv
N
(
auth_inv
i
γ
φ
)
.
Section
definitions
.
Context
{
Λ
Σ
A
}
(
i
:
g
id
)
`
{
AuthInG
Λ
Σ
i
A
}
(
γ
:
gname
).
Definition
auth_inv
(
φ
:
A
→
iPropG
Λ
Σ
)
:
iPropG
Λ
Σ
:=
(
∃
a
,
(
■
✓
a
∧
own
i
γ
(
●
a
))
★
φ
a
)
%
I
.
Definition
auth_own
(
a
:
A
)
:
iPropG
Λ
Σ
:=
own
i
γ
(
◯
a
).
Definition
auth_ctx
(
N
:
namespace
)
(
φ
:
A
→
iPropG
Λ
Σ
)
:
iPropG
Λ
Σ
:=
inv
N
(
auth_inv
φ
).
End
definitions
.
Instance:
Params
(
@
auth_inv
)
7.
Instance:
Params
(
@
auth_own
)
7.
Instance:
Params
(
@
auth_ctx
)
8.
...
...
Write
Preview
Supports
Markdown
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