Skip to content
GitLab
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
123a7c05
Commit
123a7c05
authored
Sep 27, 2016
by
Robbert Krebbers
Browse files
Big ops over gmap without binder for the key.
parent
562b2c2b
Changes
2
Hide whitespace changes
Inline
Side-by-side
algebra/cmra_big_op.v
View file @
123a7c05
...
...
@@ -44,6 +44,9 @@ Typeclasses Opaque big_opM.
Notation
"'[⋅' 'map' ] k ↦ x ∈ m , P"
:
=
(
big_opM
m
(
λ
k
x
,
P
))
(
at
level
200
,
m
at
level
10
,
k
,
x
at
level
1
,
right
associativity
,
format
"[⋅ map ] k ↦ x ∈ m , P"
)
:
C_scope
.
Notation
"'[⋅' 'map' ] x ∈ m , P"
:
=
(
big_opM
m
(
λ
_
x
,
P
))
(
at
level
200
,
m
at
level
10
,
x
at
level
1
,
right
associativity
,
format
"[⋅ map ] x ∈ m , P"
)
:
C_scope
.
Definition
big_opS
{
M
:
ucmraT
}
`
{
Countable
A
}
(
X
:
gset
A
)
(
f
:
A
→
M
)
:
M
:
=
[
⋅
]
(
f
<$>
elements
X
).
...
...
algebra/upred_big_op.v
View file @
123a7c05
...
...
@@ -47,6 +47,9 @@ Typeclasses Opaque uPred_big_sepM.
Notation
"'[★' 'map' ] k ↦ x ∈ m , P"
:
=
(
uPred_big_sepM
m
(
λ
k
x
,
P
))
(
at
level
200
,
m
at
level
10
,
k
,
x
at
level
1
,
right
associativity
,
format
"[★ map ] k ↦ x ∈ m , P"
)
:
uPred_scope
.
Notation
"'[★' 'map' ] x ∈ m , P"
:
=
(
uPred_big_sepM
m
(
λ
_
x
,
P
))
(
at
level
200
,
m
at
level
10
,
x
at
level
1
,
right
associativity
,
format
"[★ map ] x ∈ m , P"
)
:
uPred_scope
.
Definition
uPred_big_sepS
{
M
}
`
{
Countable
A
}
(
X
:
gset
A
)
(
Φ
:
A
→
uPred
M
)
:
uPred
M
:
=
[
★
]
(
Φ
<$>
elements
X
).
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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