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
R
ReLoC-v1
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
1
Issues
1
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
Dan Frumin
ReLoC-v1
Commits
c61b7c2a
Commit
c61b7c2a
authored
Aug 11, 2017
by
Dan Frumin
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Add `solve_closed` to the global hint db
parent
d13b876d
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
7 additions
and
7 deletions
+7
-7
F_mu_ref_conc/examples/counter.v
F_mu_ref_conc/examples/counter.v
+3
-4
F_mu_ref_conc/examples/lateearlychoice.v
F_mu_ref_conc/examples/lateearlychoice.v
+3
-3
F_mu_ref_conc/reflection.v
F_mu_ref_conc/reflection.v
+1
-0
No files found.
F_mu_ref_conc/examples/counter.v
View file @
c61b7c2a
...
...
@@ -99,16 +99,15 @@ Section CG_Counter.
iApply
bin_log_related_wp_l
.
wp_bind
(
FG_increment
#
x
).
unfold
FG_increment
.
unlock
.
iApply
wp_rec
;
eauto
.
solve_closed
.
(
*
TODO
:
why
is
it
not
being
solved
automatically
?
*
)
iApply
wp_rec
;
eauto
.
iNext
.
simpl
.
iApply
wp_value
;
eauto
.
simpl
.
by
rewrite
decide_left
.
iApply
wp_rec
;
eauto
.
solve_closed
.
(
*
TODO
:
same
comment
here
*
)
iApply
wp_rec
;
eauto
.
iNext
.
simpl
.
wp_bind
(
Load
(
Loc
x
)).
iApply
(
wp_load
with
"[Hx]"
);
auto
.
iNext
.
iIntros
"Hx"
.
iApply
wp_rec
;
eauto
.
solve_closed
.
(
*
TODO
:
same
comment
here
*
)
iApply
wp_rec
;
eauto
.
iNext
.
simpl
.
wp_bind
(
BinOp
_
_
_
).
iApply
(
wp_nat_binop
).
iNext
.
iModIntro
.
simpl
.
...
...
F_mu_ref_conc/examples/lateearlychoice.v
View file @
c61b7c2a
...
...
@@ -29,13 +29,13 @@ Section Refinement.
Proof
.
iStartProof
.
unfold
rand
.
unlock
.
iApply
wp_rec
;
eauto
.
solve_closed
.
iNext
.
simpl
.
iApply
wp_rec
;
eauto
.
iNext
.
simpl
.
wp_bind
(
Alloc
_
).
iApply
wp_alloc
;
auto
.
iNext
.
iIntros
(
y
)
"Hy"
.
iMod
(
inv_alloc
choiceN
_
(
y
↦ᵢ
(#
♭
v
false
)
∨
y
↦ᵢ
(#
♭
v
true
))
%
I
with
"[Hy]"
)
as
"#Hinv"
;
eauto
.
iApply
wp_rec
;
eauto
.
solve_closed
.
iNext
.
simpl
.
iApply
wp_rec
;
eauto
.
iNext
.
simpl
.
wp_bind
(
Fork
_
).
iApply
wp_fork
.
iNext
.
iSplitL
.
-
iModIntro
.
iApply
wp_rec
;
eauto
.
solve_closed
.
iNext
;
simpl
.
-
iModIntro
.
iApply
wp_rec
;
eauto
.
iNext
;
simpl
.
iInv
choiceN
as
"[Hy | Hy]"
"Hcl"
;
iApply
(
wp_load
with
"Hy"
);
eauto
;
iNext
;
iIntros
"Hy"
;
iMod
(
"Hcl"
with
"[Hy]"
);
eauto
.
-
iInv
choiceN
as
"[Hy | Hy]"
"Hcl"
;
iApply
(
wp_store
with
"Hy"
);
eauto
;
iNext
;
...
...
F_mu_ref_conc/reflection.v
View file @
c61b7c2a
...
...
@@ -252,6 +252,7 @@ Ltac solve_closed :=
eapply
R
.
is_closed_correct
;
vm_compute
;
exact
I
end
.
Hint
Extern
0
(
Closed
_
_
)
=>
solve_closed
:
typeclass_instances
.
Hint
Extern
0
(
Closed
_
_
)
=>
solve_closed
.
Ltac
simpl_subst
:=
cbn
[
subst
'
];
...
...
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