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
Tej Chajed
iris
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