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
Rodolphe Lepigre
Iris
Commits
e46a7529
Commit
e46a7529
authored
Sep 01, 2016
by
Robbert Krebbers
Browse files
Introduce notation excl' (like Excl' and ExclNone').
parent
b3891ed5
Changes
2
Hide whitespace changes
Inline
Side-by-side
algebra/auth.v
View file @
e46a7529
...
...
@@ -3,7 +3,7 @@ From iris.algebra Require Import upred updates.
Local
Arguments
valid
_
_
!
_
/.
Local
Arguments
validN
_
_
_
!
_
/.
Record
auth
(
A
:
Type
)
:
=
Auth
{
authoritative
:
option
(
excl
A
)
;
auth_own
:
A
}.
Record
auth
(
A
:
Type
)
:
=
Auth
{
authoritative
:
excl
'
A
;
auth_own
:
A
}.
Add
Printing
Constructor
auth
.
Arguments
Auth
{
_
}
_
_
.
Arguments
authoritative
{
_
}
_
.
...
...
@@ -14,7 +14,7 @@ Notation "● a" := (Auth (Excl' a) ∅) (at level 20).
(* COFE *)
Section
cofe
.
Context
{
A
:
cofeT
}.
Implicit
Types
a
:
option
(
excl
A
)
.
Implicit
Types
a
:
excl
'
A
.
Implicit
Types
b
:
A
.
Implicit
Types
x
y
:
auth
A
.
...
...
algebra/excl.v
View file @
e46a7529
...
...
@@ -9,6 +9,7 @@ Inductive excl (A : Type) :=
Arguments
Excl
{
_
}
_
.
Arguments
ExclBot
{
_
}.
Notation
excl'
A
:
=
(
option
(
excl
A
)).
Notation
Excl'
x
:
=
(
Some
(
Excl
x
)).
Notation
ExclBot'
:
=
(
Some
ExclBot
).
...
...
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