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
Tej Chajed
stdpp
Commits
6db15631
Commit
6db15631
authored
Jun 01, 2016
by
Jacques-Henri Jourdan
Browse files
Simplify frac : use a pair of a rational and a carrier
parent
bc7d4ca9
Changes
1
Hide whitespace changes
Inline
Side-by-side
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
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