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
Joshua Yanovski
iris-coq
Commits
960ec883
Commit
960ec883
authored
Jan 12, 2016
by
Robbert Krebbers
Browse files
Destructor for cons.
parent
f1f28c42
Changes
1
Hide whitespace changes
Inline
Side-by-side
prelude/list.v
View file @
960ec883
...
...
@@ -34,6 +34,9 @@ Notation "x ≢ₚ y":= (¬x ≡ₚ y) (at level 70, no associativity) : C_scope
Notation
"( x ≢ₚ)"
:=
(
λ
y
,
x
≢ₚ
y
)
(
only
parsing
)
:
C_scope
.
Notation
"(≢ₚ x )"
:=
(
λ
y
,
y
≢ₚ
x
)
(
only
parsing
)
:
C_scope
.
Instance
maybe_cons
{
A
}
:
Maybe2
(
@
cons
A
)
:=
λ
l
,
match
l
with
x
::
l
=>
Some
(
x
,
l
)
|
_
=>
None
end
.
(
**
*
Definitions
*
)
(
**
Setoid
equality
lifted
to
lists
*
)
Inductive
list_equiv
`
{
Equiv
A
}
:
Equiv
(
list
A
)
:=
...
...
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