Skip to content
GitLab
Explore
Sign in
Primary navigation
Search or go to…
Project
S
stdpp
Manage
Activity
Members
Labels
Plan
Issues
Issue boards
Milestones
Wiki
Code
Merge requests
Repository
Branches
Commits
Tags
Repository graph
Compare revisions
Build
Pipelines
Jobs
Pipeline schedules
Artifacts
Deploy
Releases
Model registry
Monitor
Service Desk
Analyze
Value stream analytics
Contributor analytics
CI/CD analytics
Repository analytics
Model experiments
Help
Help
Support
GitLab documentation
Compare GitLab plans
Community forum
Contribute to GitLab
Provide feedback
Terms and privacy
Keyboard shortcuts
?
Snippets
Groups
Projects
Show more breadcrumbs
Iris
stdpp
Merge requests
!293
Make `done` work on `is_Some`.
Code
Review changes
Check out branch
Download
Patches
Plain diff
Merged
Make `done` work on `is_Some`.
robbert/done_is_Some
into
master
Overview
3
Commits
2
Pipelines
2
Changes
2
Merged
Robbert Krebbers
requested to merge
robbert/done_is_Some
into
master
3 years ago
Overview
3
Commits
2
Pipelines
2
Changes
2
Expand
0
0
Merge request reports
Compare
master
version 1
83448f76
3 years ago
master (base)
and
latest version
latest version
c45911b3
2 commits,
3 years ago
version 1
83448f76
1 commit,
3 years ago
2 files
+
5
−
2
Inline
Compare changes
Side-by-side
Inline
Show whitespace changes
Show one file at a time
Files
2
Search (e.g. *.vue) (Ctrl+P)
theories/option.v
+
4
−
2
Options
@@ -40,12 +40,14 @@ Proof. congruence. Qed.
Definition
is_Some
{
A
}
(
mx
:
option
A
)
:=
∃
x
,
mx
=
Some
x
.
Global
Instance
:
Params
(
@
is_Some
)
1
:=
{}
.
Global
Hint
Extern
0
(
is_Some
_)
=>
by
eexists
:
core
.
Lemma
is_Some_alt
{
A
}
(
mx
:
option
A
)
:
is_Some
mx
↔
match
mx
with
Some
_
=>
True
|
None
=>
False
end
.
Proof
.
unfold
is_Some
.
destruct
mx
;
naive_solver
.
Qed
.
Lemma
mk_is_Some
{
A
}
(
mx
:
option
A
)
x
:
mx
=
Some
x
→
is_Some
mx
.
Proof
.
intros
;
red
;
subst
;
eauto
.
Qed
.
Proof
.
by
intros
->
.
Qed
.
Global
Hint
Resolve
mk_is_Some
:
core
.
Lemma
is_Some_None
{
A
}
:
¬
is_Some
(
@
None
A
)
.
Proof
.
by
destruct
1
.
Qed
.
@@ -135,7 +137,7 @@ Section setoids.
Proof
.
split
;
[
inversion
1
;
naive_solver
|
naive_solver
(
by
constructor
)]
.
Qed
.
Global
Instance
is_Some_proper
:
Proper
((
≡@
{
option
A
})
==>
iff
)
is_Some
.
Proof
.
inversion_clear
1
;
split
;
eauto
.
Qed
.
Proof
.
by
inversion_clear
1
.
Qed
.
Global
Instance
from_option_proper
{
B
}
(
R
:
relation
B
)
:
Proper
(((
≡@
{
A
})
==>
R
)
==>
R
==>
(
≡
)
==>
R
)
from_option
.
Proof
.
destruct
3
;
simpl
;
auto
.
Qed
.
Loading