Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
David Swasey
coq-stdpp
Commits
6db15631
Commit
6db15631
authored
Jun 01, 2016
by
Jacques-Henri Jourdan
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Simplify frac : use a pair of a rational and a carrier
parent
bc7d4ca9
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
5 additions
and
0 deletions
+5
-0
theories/base.v
theories/base.v
+5
-0
No files found.
theories/base.v
View file @
6db15631
...
...
@@ -466,6 +466,11 @@ Instance fst_proper `{Equiv A, Equiv B} : Proper ((≡) ==> (≡)) (@fst A B) :=
Instance
snd_proper
`
{
Equiv
A
,
Equiv
B
}
:
Proper
((
≡
)
==>
(
≡
))
(@
snd
A
B
)
:
=
_
.
Typeclasses
Opaque
prod_equiv
.
Instance
prod_leibniz
`
{
LeibnizEquiv
A
,
!
Equivalence
((
≡
)
:
relation
A
),
LeibnizEquiv
B
,
!
Equivalence
((
≡
)
:
relation
B
)}
:
LeibnizEquiv
(
A
*
B
).
Proof
.
intros
[]
[]
[]
;
fold_leibniz
;
simpl
;
congruence
.
Qed
.
(** ** Sums *)
Definition
sum_map
{
A
A'
B
B'
}
(
f
:
A
→
A'
)
(
g
:
B
→
B'
)
(
xy
:
A
+
B
)
:
A'
+
B'
:
=
match
xy
with
inl
x
=>
inl
(
f
x
)
|
inr
y
=>
inr
(
g
y
)
end
.
...
...
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