Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
Joshua Yanovski
iris-coq
Commits
0a593561
Commit
0a593561
authored
Feb 13, 2016
by
Ralf Jung
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
add a derived 'skip' to heap_lang
parent
960ac942
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
4 additions
and
0 deletions
+4
-0
heap_lang/derived.v
heap_lang/derived.v
+4
-0
No files found.
heap_lang/derived.v
View file @
0a593561
...
...
@@ -8,6 +8,7 @@ Notation Seq e1 e2 := (Let "" e1 e2).
Notation
LamV
x
e
:=
(
RecV
""
x
e
).
Notation
LetCtx
x
e2
:=
(
AppRCtx
(
LamV
x
e2
)).
Notation
SeqCtx
e2
:=
(
LetCtx
""
e2
).
Notation
Skip
:=
(
Seq
(
Lit
LitUnit
)
(
Lit
LitUnit
)).
Section
derived
.
Context
{
Σ
:
iFunctor
}
.
...
...
@@ -29,6 +30,9 @@ Proof.
by
rewrite
-
wp_let
'
//= ?to_of_val ?subst_empty.
Qed
.
Lemma
wp_skip
E
Q
:
▷
(
Q
(
LitV
LitUnit
))
⊑
wp
E
Skip
Q
.
Proof
.
rewrite
-
wp_seq
-
wp_value
// -wp_value //. Qed.
Lemma
wp_le
E
(
n1
n2
:
Z
)
P
Q
:
(
n1
≤
n2
→
P
⊑
▷
Q
(
LitV
$
LitBool
true
))
→
(
n2
<
n1
→
P
⊑
▷
Q
(
LitV
$
LitBool
false
))
→
...
...
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