Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
C
coq-stdpp
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
0
Issues
0
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
David Swasey
coq-stdpp
Commits
b6ad5868
Commit
b6ad5868
authored
Aug 21, 2013
by
Robbert Krebbers
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Make arguments of proj1_sig maximally implicit.
parent
5c785a10
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
3 additions
and
3 deletions
+3
-3
theories/assoc.v
theories/assoc.v
+1
-2
theories/base.v
theories/base.v
+2
-1
No files found.
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
Markdown
is supported
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