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
Jonas Kastberg
iris
Commits
bf59ec9e
Commit
bf59ec9e
authored
Sep 20, 2016
by
Robbert Krebbers
Browse files
Destructors for csum.
parent
481992cf
Changes
1
Hide whitespace changes
Inline
Side-by-side
algebra/csum.v
View file @
bf59ec9e
...
...
@@ -15,6 +15,11 @@ Arguments Cinl {_ _} _.
Arguments
Cinr
{
_
_
}
_
.
Arguments
CsumBot
{
_
_
}.
Instance
maybe_Cinl
{
A
B
}
:
Maybe
(@
Cinl
A
B
)
:
=
λ
x
,
match
x
with
Cinl
a
=>
Some
a
|
_
=>
None
end
.
Instance
maybe_Cinr
{
A
B
}
:
Maybe
(@
Cinr
A
B
)
:
=
λ
x
,
match
x
with
Cinr
b
=>
Some
b
|
_
=>
None
end
.
Section
cofe
.
Context
{
A
B
:
cofeT
}.
Implicit
Types
a
:
A
.
...
...
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