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
Iris
Iris
Commits
96e5b762
Commit
96e5b762
authored
Feb 26, 2016
by
Robbert Krebbers
Browse files
Destructor for dec_agree.
parent
c5f3fc77
Changes
1
Hide whitespace changes
Inline
Side-by-side
algebra/dec_agree.v
View file @
96e5b762
...
...
@@ -10,6 +10,8 @@ Inductive dec_agree (A : Type) : Type :=
|
DecAgreeBot
:
dec_agree
A
.
Arguments
DecAgree
{
_
}
_
.
Arguments
DecAgreeBot
{
_
}.
Instance
maybe_DecAgree
{
A
}
:
Maybe
(@
DecAgree
A
)
:
=
λ
x
,
match
x
with
DecAgree
a
=>
Some
a
|
_
=>
None
end
.
Section
dec_agree
.
Context
{
A
:
Type
}
`
{
∀
x
y
:
A
,
Decision
(
x
=
y
)}.
...
...
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