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
e6084d75
Commit
e6084d75
authored
Feb 08, 2018
by
Robbert Krebbers
Browse files
Regression test for issue #55.
parent
037f7e3f
Changes
1
Hide whitespace changes
Inline
Side-by-side
theories/tests/proofmode.v
View file @
e6084d75
...
...
@@ -303,6 +303,14 @@ Lemma test_iNext_plus_3 P Q n m k :
▷
^
m
▷
^(
2
+
S
n
+
k
)
P
-
∗
▷
^
m
▷
▷
^(
2
+
S
n
)
Q
-
∗
▷
^
k
▷
▷
^(
S
(
S
n
+
S
m
))
(
P
∗
Q
).
Proof
.
iIntros
"H1 H2"
.
iNext
.
iNext
.
iNext
.
iFrame
.
Qed
.
Lemma
test_iNext_unfold
P
Q
n
m
(
R
:
=
(
▷
^
n
P
)%
I
)
:
R
⊢
▷
^
m
True
.
Proof
.
iIntros
"HR"
.
iNext
.
match
goal
with
|-
context
[
R
]
=>
idtac
|
|-
_
=>
fail
end
.
done
.
Qed
.
Lemma
test_iEval
x
y
:
⌜
(
y
+
x
)%
nat
=
1
⌝
-
∗
⌜
S
(
x
+
y
)
=
2
%
nat
⌝
:
uPred
M
.
Proof
.
iIntros
(
H
).
...
...
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