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
Rice Wine
Iris
Commits
251ab0d5
Commit
251ab0d5
authored
May 25, 2016
by
Robbert Krebbers
Browse files
Turn some -> arrows into →.
parent
d27b81ff
Changes
3
Hide whitespace changes
Inline
Side-by-side
algebra/cmra.v
View file @
251ab0d5
...
...
@@ -443,7 +443,7 @@ End cmra_monotone.
(** Functors *)
Structure
rFunctor
:
=
RFunctor
{
rFunctor_car
:
cofeT
→
cofeT
->
cmraT
;
rFunctor_car
:
cofeT
→
cofeT
→
cmraT
;
rFunctor_map
{
A1
A2
B1
B2
}
:
((
A2
-
n
>
A1
)
*
(
B1
-
n
>
B2
))
→
rFunctor_car
A1
B1
-
n
>
rFunctor_car
A2
B2
;
rFunctor_ne
A1
A2
B1
B2
n
:
...
...
algebra/cofe.v
View file @
251ab0d5
...
...
@@ -340,7 +340,7 @@ Proof. intros f f' Hf g g' Hg [??]; split; [apply Hf|apply Hg]. Qed.
(** Functors *)
Structure
cFunctor
:
=
CFunctor
{
cFunctor_car
:
cofeT
→
cofeT
->
cofeT
;
cFunctor_car
:
cofeT
→
cofeT
→
cofeT
;
cFunctor_map
{
A1
A2
B1
B2
}
:
((
A2
-
n
>
A1
)
*
(
B1
-
n
>
B2
))
→
cFunctor_car
A1
B1
-
n
>
cFunctor_car
A2
B2
;
cFunctor_ne
{
A1
A2
B1
B2
}
n
:
...
...
prelude/base.v
View file @
251ab0d5
...
...
@@ -91,8 +91,8 @@ Notation "(, y )" := (λ x, (x,y)) (only parsing) : C_scope.
Notation
"p .1"
:
=
(
fst
p
)
(
at
level
10
,
format
"p .1"
).
Notation
"p .2"
:
=
(
snd
p
)
(
at
level
10
,
format
"p .2"
).
Definition
fun_map
{
A
A'
B
B'
}
(
f
:
A'
->
A
)
(
g
:
B
->
B'
)
(
h
:
A
->
B
)
:
A'
->
B'
:
=
g
∘
h
∘
f
.
Definition
fun_map
{
A
A'
B
B'
}
(
f
:
A'
→
A
)
(
g
:
B
→
B'
)
(
h
:
A
→
B
)
:
A'
→
B'
:
=
g
∘
h
∘
f
.
Definition
prod_map
{
A
A'
B
B'
}
(
f
:
A
→
A'
)
(
g
:
B
→
B'
)
(
p
:
A
*
B
)
:
A'
*
B'
:
=
(
f
(
p
.
1
),
g
(
p
.
2
)).
Arguments
prod_map
{
_
_
_
_
}
_
_
!
_
/.
...
...
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