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
Rodolphe Lepigre
Iris
Commits
187db929
Commit
187db929
authored
Dec 21, 2015
by
Robbert Krebbers
Browse files
Something close to non-expansiveness of is_Some.
parent
a121e077
Changes
1
Hide whitespace changes
Inline
Side-by-side
modures/option.v
View file @
187db929
...
...
@@ -49,6 +49,8 @@ Proof. by intros ?; inversion_clear 1; constructor; apply timeless. Qed.
Instance
option_fmap_ne
`
{
Dist
A
,
Dist
B
}
(
f
:
A
→
B
)
n
:
Proper
(
dist
n
==>
dist
n
)
f
→
Proper
(
dist
n
==>
dist
n
)
(
fmap
(
M
:
=
option
)
f
).
Proof
.
by
intros
Hf
;
destruct
1
;
constructor
;
apply
Hf
.
Qed
.
Instance
is_Some_ne
`
{
Dist
A
}
:
Proper
(
dist
(
S
n
)
==>
iff
)
(@
is_Some
A
).
Proof
.
intros
n
;
inversion_clear
1
;
split
;
eauto
.
Qed
.
(* CMRA *)
Instance
option_valid
`
{
Valid
A
}
:
Valid
(
option
A
)
:
=
λ
mx
,
...
...
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