Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Support
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
C
c
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Boards
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
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
proofmode.v
theories/c_translation/proofmode.v
+1
-1
translation.v
theories/c_translation/translation.v
+2
-2
No files found.
opam
View file @
0c4025c2
...
@@ -9,5 +9,5 @@ build: [make "-j%{jobs}%"]
...
@@ -9,5 +9,5 @@ build: [make "-j%{jobs}%"]
install: [make "install"]
install: [make "install"]
remove: [ "sh" "-c" "rm -rf '%{lib}%/coq/user-contrib/iris-c" ]
remove: [ "sh" "-c" "rm -rf '%{lib}%/coq/user-contrib/iris-c" ]
depends: [
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 :=
...
@@ -78,7 +78,7 @@ Ltac cwp_pures :=
Tactic
Notation
"cwp_rec"
:=
Tactic
Notation
"cwp_rec"
:=
let
H
:=
fresh
in
let
H
:=
fresh
in
assert
(
H
:=
AsRecV_recv
);
assert
(
H
:=
AsRecV_recv
_locked
);
cwp_pure
(
App
_
_);
cwp_pure
(
App
_
_);
clear
H
.
clear
H
.
...
...
theories/c_translation/translation.v
View file @
0c4025c2
...
@@ -483,7 +483,7 @@ Section proofs.
...
@@ -483,7 +483,7 @@ Section proofs.
(
⌜
v
=
#
false
⌝
∧
U
(
CWP
e2
@
R
{{
Φ
}}))
}}
-
∗
(
⌜
v
=
#
false
⌝
∧
U
(
CWP
e2
@
R
{{
Φ
}}))
}}
-
∗
CWP
if
ᶜ
(
c
)
{
e1
}
else
ᶜ
{
e2
}
@
R
{{
Φ
}}.
CWP
if
ᶜ
(
c
)
{
e1
}
else
ᶜ
{
e2
}
@
R
{{
Φ
}}.
Proof
.
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
.
cwp_apply
(
cwp_wp
with
"H"
).
iIntros
(
v
)
"H"
.
cwp_pures
.
iApply
cwp_seq_bind'
.
iApply
(
cwp_wand
with
"H"
).
iApply
cwp_seq_bind'
.
iApply
(
cwp_wand
with
"H"
).
iIntros
(
v'
)
"[[-> ?] | [-> ?]] !> !>"
;
by
cwp_pures
.
iIntros
(
v'
)
"[[-> ?] | [-> ?]] !> !>"
;
by
cwp_pures
.
...
@@ -501,7 +501,7 @@ Section proofs.
...
@@ -501,7 +501,7 @@ Section proofs.
∨
⌜
v
=
#
false
⌝
∧
U
(
Φ
#())
}}
-
∗
∨
⌜
v
=
#
false
⌝
∧
U
(
Φ
#())
}}
-
∗
CWP
whileV
ᶜ
(
c
)
{
e
}
@
R
{{
Φ
}}.
CWP
whileV
ᶜ
(
c
)
{
e
}
@
R
{{
Φ
}}.
Proof
.
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
.
cwp_apply
(
cwp_wp
with
"H"
).
iIntros
(
v
)
"H"
.
cwp_lam
.
cwp_pures
.
iApply
cwp_seq_bind'
.
iApply
(
cwp_wand
with
"H"
).
iApply
cwp_seq_bind'
.
iApply
(
cwp_wand
with
"H"
).
iIntros
(
v'
)
"[[-> H] | [-> 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