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
Tej Chajed
iris
Commits
51eea32e
Commit
51eea32e
authored
Jul 25, 2016
by
Robbert Krebbers
Browse files
Make level of -n> the same as →.
parent
98ba9f5f
Changes
1
Hide whitespace changes
Inline
Side-by-side
algebra/cofe.v
View file @
51eea32e
...
...
@@ -260,9 +260,10 @@ Section cofe_mor.
End
cofe_mor
.
Arguments
cofe_mor
:
clear
implicits
.
Infix
"-n>"
:
=
cofe_mor
(
at
level
45
,
right
associativity
).
Instance
cofe_more_inhabited
{
A
B
:
cofeT
}
`
{
Inhabited
B
}
:
Inhabited
(
A
-
n
>
B
)
:
=
populate
(
CofeMor
(
λ
_
,
inhabitant
)).
Notation
"A -n> B"
:
=
(
cofe_mor
A
B
)
(
at
level
99
,
B
at
level
200
,
right
associativity
).
Instance
cofe_mor_inhabited
{
A
B
:
cofeT
}
`
{
Inhabited
B
}
:
Inhabited
(
A
-
n
>
B
)
:
=
populate
(
λ
ne
_
,
inhabitant
).
(** Identity and composition and constant function *)
Definition
cid
{
A
}
:
A
-
n
>
A
:
=
CofeMor
id
.
...
...
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