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
Rice Wine
Iris
Commits
96778f37
Commit
96778f37
authored
Jan 12, 2016
by
Robbert Krebbers
Browse files
More consistent naming.
parent
7700051d
Changes
2
Hide whitespace changes
Inline
Side-by-side
prelude/fin_maps.v
View file @
96778f37
...
...
@@ -1532,7 +1532,7 @@ Tactic Notation "simplify_map_equality" "by" tactic3(tac) :=
repeat
match
goal
with
|
_
=>
progress
simpl_map
by
tac
|
_
=>
progress
simplify_equality
|
_
=>
progress
simpl_option
_monad
by
tac
|
_
=>
progress
simpl_option
by
tac
|
H
:
{[
_
↦
_
]}
!!
_
=
None
|-
_
=>
rewrite
lookup_singleton_None
in
H
|
H
:
{[
_
↦
_
]}
!!
_
=
Some
_
|-
_
=>
rewrite
lookup_singleton_Some
in
H
;
destruct
H
...
...
prelude/option.v
View file @
96778f37
...
...
@@ -261,7 +261,7 @@ Lemma option_guard_iff {A} P Q `{Decision P, Decision Q} (x : option A) :
(
P
↔
Q
)
→
guard
P
;
x
=
guard
Q
;
x
.
Proof
.
intros
[??].
repeat
case_option_guard
;
intuition
.
Qed
.
Tactic
Notation
"simpl_option
_monad
"
"by"
tactic3
(
tac
)
:
=
Tactic
Notation
"simpl_option"
"by"
tactic3
(
tac
)
:
=
let
assert_Some_None
A
o
H
:
=
first
[
let
x
:
=
fresh
in
evar
(
x
:
A
)
;
let
x'
:
=
eval
unfold
x
in
x
in
clear
x
;
assert
(
o
=
Some
x'
)
as
H
by
tac
...
...
@@ -308,7 +308,7 @@ Tactic Notation "simpl_option_monad" "by" tactic3(tac) :=
Tactic
Notation
"simplify_option_equality"
"by"
tactic3
(
tac
)
:
=
repeat
match
goal
with
|
_
=>
progress
simplify_equality'
|
_
=>
progress
simpl_option
_monad
by
tac
|
_
=>
progress
simpl_option
by
tac
|
_
:
maybe
_
?x
=
Some
_
|-
_
=>
is_var
x
;
destruct
x
|
_
:
maybe2
_
?x
=
Some
_
|-
_
=>
is_var
x
;
destruct
x
|
_
:
maybe3
_
?x
=
Some
_
|-
_
=>
is_var
x
;
destruct
x
...
...
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