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
Simon Spies
stdpp
Commits
b6ad5868
Commit
b6ad5868
authored
Aug 21, 2013
by
Robbert Krebbers
Browse files
Make arguments of proj1_sig maximally implicit.
parent
5c785a10
Changes
2
Hide whitespace changes
Inline
Side-by-side
theories/assoc.v
View file @
b6ad5868
...
...
@@ -240,8 +240,7 @@ Proof.
induction
l2
as
[|[??]
l2
IH2
]
;
simplify_assoc
;
rewrite
?IH
;
simplify_assoc
.
Qed
.
Global
Instance
assoc_to_list
{
A
}
:
FinMapToList
K
A
(
assoc
K
A
)
:
=
@
proj1_sig
_
_
.
Global
Instance
assoc_to_list
{
A
}
:
FinMapToList
K
A
(
assoc
K
A
)
:
=
proj1_sig
.
Lemma
assoc_to_list_nodup
{
A
}
(
l
:
list
(
K
*
A
))
:
assoc_wf
l
→
NoDup
l
.
Proof
.
revert
l
.
assert
(
∀
i
x
(
l
:
list
(
K
*
A
)),
assoc_before
i
l
→
(
i
,
x
)
∉
l
).
...
...
theories/base.v
View file @
b6ad5868
...
...
@@ -72,8 +72,9 @@ Notation "(↔ B )" := (λ A, A ↔ B) (only parsing) : C_scope.
(** Set convenient implicit arguments for [existT] and introduce notations. *)
Arguments
existT
{
_
_
}
_
_
.
Arguments
proj1_sig
{
_
_
}
_
.
Notation
"x ↾ p"
:
=
(
exist
_
x
p
)
(
at
level
20
)
:
C_scope
.
Notation
"` x"
:
=
(
proj1_sig
x
)
:
C_scope
.
Notation
"` x"
:
=
(
proj1_sig
x
)
(
at
level
10
,
format
"` x"
)
:
C_scope
.
(** * Type classes *)
(** ** Provable propositions *)
...
...
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