Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Jonas Kastberg
iris
Commits
35ba9ba1
Commit
35ba9ba1
authored
Feb 01, 2018
by
Robbert Krebbers
Browse files
Some test cases/uses for stronger framing in disjunctions.
parent
2fb90ca6
Changes
2
Hide whitespace changes
Inline
Side-by-side
theories/base_logic/lib/na_invariants.v
View file @
35ba9ba1
...
...
@@ -47,8 +47,8 @@ Section proofs.
Proof
.
iIntros
"#HPQ"
.
rewrite
/
na_inv
.
iDestruct
1
as
(
i
?)
"#Hinv"
.
iExists
i
.
iSplit
;
first
done
.
iApply
(
inv_iff
with
"[] Hinv"
).
iNext
.
iAlways
.
iSplit
;
(
iIntros
"[[? Ho]|?]"
;
[
iLeft
;
iFrame
"Ho"
;
by
iApply
"HPQ"
|
by
iRight
])
.
iNext
;
iAlways
.
iSplit
;
iIntros
"[[? Ho]|$]"
;
iLeft
;
iFrame
"Ho"
;
by
iApply
"HPQ"
.
Qed
.
Lemma
na_alloc
:
(|==>
∃
p
,
na_own
p
⊤
)%
I
.
...
...
theories/tests/proofmode.v
View file @
35ba9ba1
...
...
@@ -104,6 +104,12 @@ Lemma test_iFrame_pure (x y z : M) :
✓
x
→
⌜
y
≡
z
⌝
-
∗
(
✓
x
∧
✓
x
∧
y
≡
z
:
uPred
M
).
Proof
.
iIntros
(
Hv
)
"Hxy"
.
by
iFrame
(
Hv
Hv
)
"Hxy"
.
Qed
.
Lemma
test_iFrame_disjunction_1
P1
P2
Q1
Q2
:
□
P1
-
∗
Q2
-
∗
P2
-
∗
(
P1
∗
P2
∗
False
∨
P2
)
∗
(
Q1
∨
Q2
).
Proof
.
iIntros
"#HP1 HQ2 HP2"
.
iFrame
"HP1 HQ2 HP2"
.
Qed
.
Lemma
test_iFrame_disjunction_2
P
:
P
-
∗
(
True
∨
True
)
∗
P
.
Proof
.
iIntros
"HP"
.
iFrame
"HP"
.
auto
.
Qed
.
Lemma
test_iAssert_persistent
P
Q
:
P
-
∗
Q
-
∗
True
.
Proof
.
iIntros
"HP HQ"
.
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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