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
Gaurav Parthasarathy
examples_rdcss_old
Commits
fa9bc158
Commit
fa9bc158
authored
Apr 30, 2018
by
Dan Frumin
Browse files
Make parfib.v compile with the latest Iris version
parent
d086103b
Changes
1
Show whitespace changes
Inline
Sidebyside
theories/hocap/parfib.v
View file @
fa9bc158
...
...
@@ 40,17 +40,19 @@ Section contents.
Proof
.
iIntros
(
Φ
)
"_ HΦ"
.
iL
ö
b
as
"IH"
forall
(
n
Φ
).
rewrite
/
seqFib
.
wp_rec
.
wp_op
.
case_bool_decide
;
wp_if
.
wp_rec
.
wp_op
.
case_bool_decide
;
simplify_eq
;
wp_if
.
{
assert
(
n
=
O
)
as
>
by
lia
.
assert
(
1
=
S
O
)
as
>
by
lia
.
by
iApply
"HΦ"
.
}
wp_op
.
case_bool_decide
;
wp_if
.
wp_op
.
case_bool_decide
;
simplify_eq
;
wp_if
.
{
assert
(
n
=
S
O
)
as
>
by
lia
.
assert
(
1
=
S
O
)
as
>
by
lia
.
by
iApply
"HΦ"
.
}
wp_op
.
wp_bind
((
rec
:
"fib"
"a"
:
=
_
)%
V
#(
n

1
)).
assert
(
∃
m
,
n
=
S
(
S
m
))
as
[
m
>].
{
exists
(
n

(
S
(
S
O
)))%
nat
.
lia
.
}
{
assert
(
n
≠
O
)
by
naive_solver
.
assert
(
n
≠
S
O
)
by
naive_solver
.
exists
(
n

(
S
(
S
O
)))%
nat
.
lia
.
}
assert
((
S
(
S
m
)

1
)
=
S
m
)
as
>
by
lia
.
iApply
"IH"
.
iNext
.
iIntros
(?
<).
assert
(
Z
.
of_nat
(
S
(
S
m
))
=
m
+
2
)
as
>
by
lia
.
...
...
Write
Preview
Supports
Markdown
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