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
Iris
Iris
Commits
b7cf62fd
Commit
b7cf62fd
authored
Feb 16, 2016
by
Robbert Krebbers
Browse files
Some test tweaks.
parent
58d1d6c9
Changes
1
Hide whitespace changes
Inline
Side-by-side
heap_lang/tests.v
View file @
b7cf62fd
...
...
@@ -64,21 +64,20 @@ Section LiftingTests.
wp_rec
>.
(* FIXME: ssr rewrite fails with "Error: _pattern_value_ is used in conclusion." *)
rewrite
->(
later_intro
(
Q
_
))
;
rewrite
-!
later_and
;
apply
later_mono
.
wp_rec
.
wp_bin_op
.
wp_rec
.
wp_bin_op
=>
?.
-
wp_if
.
rewrite
(
forall_elim
(
n1
+
1
))
const_equiv
;
last
omega
.
wp_rec
.
wp_bin_op
.
wp_rec
.
wp_bin_op
=>
?
;
wp_if
.
-
rewrite
(
forall_elim
(
n1
+
1
))
const_equiv
;
last
omega
.
by
rewrite
left_id
impl_elim_l
.
-
assert
(
n1
=
n2
-
1
)
as
->
by
omega
.
wp_if
.
auto
with
I
.
-
assert
(
n1
=
n2
-
1
)
as
->
by
omega
;
auto
with
I
.
Qed
.
Lemma
Pred_spec
n
E
Q
:
▷
Q
(
LitV
(
n
-
1
))
⊑
wp
E
(
Pred
'
n
)%
L
Q
.
Proof
.
wp_rec
>
;
apply
later_mono
;
wp_bin_op
=>
?.
-
wp_if
.
wp_un_op
.
wp_bin_op
.
wp_rec
>
;
apply
later_mono
;
wp_bin_op
=>
?
;
wp_if
.
-
wp_un_op
.
wp_bin_op
.
wp_focus
(
FindPred
_
_
)
;
rewrite
-
FindPred_spec
.
apply
and_intro
;
first
auto
with
I
omega
.
wp_un_op
.
by
replace
(
n
-
1
)
with
(-
(-
n
+
2
-
1
))
by
omega
.
-
wp_if
.
rewrite
-
FindPred_spec
.
auto
with
I
omega
.
-
rewrite
-
FindPred_spec
.
auto
with
I
omega
.
Qed
.
Goal
∀
E
,
...
...
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