Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
C
c
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
0
Issues
0
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
Iris
c
Commits
0c4025c2
Commit
0c4025c2
authored
Mar 14, 2019
by
Ralf Jung
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Revert "Bump Iris."
This reverts commit
b1eb1a06
, to get initial timing without that commit.
parent
b1eb1a06
Pipeline
#15466
canceled with stage
Changes
3
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
4 additions
and
4 deletions
+4
-4
opam
opam
+1
-1
theories/c_translation/proofmode.v
theories/c_translation/proofmode.v
+1
-1
theories/c_translation/translation.v
theories/c_translation/translation.v
+2
-2
No files found.
opam
View file @
0c4025c2
...
...
@@ -9,5 +9,5 @@ build: [make "-j%{jobs}%"]
install: [make "install"]
remove: [ "sh" "-c" "rm -rf '%{lib}%/coq/user-contrib/iris-c" ]
depends: [
"coq-iris" { (= "dev.2019-03-
14.2.66a69b0a
") | (= "dev") }
"coq-iris" { (= "dev.2019-03-
06.2.f5d03e25
") | (= "dev") }
]
theories/c_translation/proofmode.v
View file @
0c4025c2
...
...
@@ -78,7 +78,7 @@ Ltac cwp_pures :=
Tactic
Notation
"cwp_rec"
:
=
let
H
:
=
fresh
in
assert
(
H
:
=
AsRecV_recv
)
;
assert
(
H
:
=
AsRecV_recv
_locked
)
;
cwp_pure
(
App
_
_
)
;
clear
H
.
...
...
theories/c_translation/translation.v
View file @
0c4025c2
...
...
@@ -483,7 +483,7 @@ Section proofs.
(
⌜
v
=
#
false
⌝
∧
U
(
CWP
e2
@
R
{{
Φ
}}))
}}
-
∗
CWP
if
ᶜ
(
c
)
{
e1
}
else
ᶜ
{
e2
}
@
R
{{
Φ
}}.
Proof
.
iIntros
"H"
.
rewrite
/
c_if
.
cwp_pures
.
iIntros
"H"
.
rewrite
/
c_if
-
lock
.
cwp_pures
.
cwp_apply
(
cwp_wp
with
"H"
).
iIntros
(
v
)
"H"
.
cwp_pures
.
iApply
cwp_seq_bind'
.
iApply
(
cwp_wand
with
"H"
).
iIntros
(
v'
)
"[[-> ?] | [-> ?]] !> !>"
;
by
cwp_pures
.
...
...
@@ -501,7 +501,7 @@ Section proofs.
∨
⌜
v
=
#
false
⌝
∧
U
(
Φ
#())
}}
-
∗
CWP
whileV
ᶜ
(
c
)
{
e
}
@
R
{{
Φ
}}.
Proof
.
iIntros
"H"
.
cwp_lam
.
cwp_pures
.
rewrite
/
c_if
.
cwp_pures
.
iIntros
"H"
.
cwp_lam
.
cwp_pures
.
rewrite
/
c_if
-
lock
.
cwp_pures
.
cwp_apply
(
cwp_wp
with
"H"
).
iIntros
(
v
)
"H"
.
cwp_lam
.
cwp_pures
.
iApply
cwp_seq_bind'
.
iApply
(
cwp_wand
with
"H"
).
iIntros
(
v'
)
"[[-> H] | [-> H]] !> !>"
.
...
...
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