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
E
examples
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
Paolo G. Giarrusso
examples
Commits
5ec0e1f5
Verified
Commit
5ec0e1f5
authored
May 31, 2019
by
Rodolphe Lepigre
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Some [positive] was sometimes used for [loc], which is now abstract.
parent
3e2bbf56
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
4 additions
and
4 deletions
+4
-4
opam
opam
+1
-1
theories/spanning_tree/mon.v
theories/spanning_tree/mon.v
+2
-2
theories/spanning_tree/proof.v
theories/spanning_tree/proof.v
+1
-1
No files found.
opam
View file @
5ec0e1f5
...
@@ -9,6 +9,6 @@ build: [make "-j%{jobs}%"]
...
@@ -9,6 +9,6 @@ build: [make "-j%{jobs}%"]
install: [make "install"]
install: [make "install"]
remove: ["rm" "-rf" "%{lib}%/coq/user-contrib/iris_examples"]
remove: ["rm" "-rf" "%{lib}%/coq/user-contrib/iris_examples"]
depends: [
depends: [
"coq-iris" { (= "dev.2019-05-3
0.1.78ee4940
") | (= "dev") }
"coq-iris" { (= "dev.2019-05-3
1.0.5c07c3be
") | (= "dev") }
"coq-autosubst" { = "dev.coq86" }
"coq-autosubst" { = "dev.coq86" }
]
]
theories/spanning_tree/mon.v
View file @
5ec0e1f5
...
@@ -751,7 +751,7 @@ Proof.
...
@@ -751,7 +751,7 @@ Proof.
by
rewrite
get_left_singleton
get_right_singleton
/
get_left
/
get_right
Hu
.
by
rewrite
get_left_singleton
get_right_singleton
/
get_left
/
get_right
Hu
.
Qed
.
Qed
.
Lemma
mark_strict_subgraph
(
g
:
graph
loc
)
(
G
:
Gmon
)
x
v
:
Lemma
mark_strict_subgraph
(
g
:
graph
loc
)
(
G
:
Gmon
)
x
v
:
✓
((
x
[
↦
]
v
)
⋅
G
)
→
x
∈
dom
(
gset
positive
)
g
→
✓
((
x
[
↦
]
v
)
⋅
G
)
→
x
∈
dom
(
gset
loc
)
g
→
of_graph
g
G
!!
x
=
Some
(
false
,
v
)
→
strict_subgraph
g
(
Gmon_graph
G
)
→
of_graph
g
G
!!
x
=
Some
(
false
,
v
)
→
strict_subgraph
g
(
Gmon_graph
G
)
→
strict_subgraph
g
(
Gmon_graph
((
x
[
↦
]
v
)
⋅
G
)).
strict_subgraph
g
(
Gmon_graph
((
x
[
↦
]
v
)
⋅
G
)).
Proof
.
Proof
.
...
@@ -760,7 +760,7 @@ Proof.
...
@@ -760,7 +760,7 @@ Proof.
inversion
1
;
auto
using
strict_sub_children_refl
.
inversion
1
;
auto
using
strict_sub_children_refl
.
Qed
.
Qed
.
Lemma
update_strict_subgraph
(
g
:
graph
loc
)
(
G
:
Gmon
)
x
v
w
:
Lemma
update_strict_subgraph
(
g
:
graph
loc
)
(
G
:
Gmon
)
x
v
w
:
✓
((
x
[
↦
]
v
)
⋅
G
)
→
x
∈
dom
(
gset
positive
)
g
→
✓
((
x
[
↦
]
v
)
⋅
G
)
→
x
∈
dom
(
gset
loc
)
g
→
strict_subgraph
g
(
Gmon_graph
((
x
[
↦
]
w
)
⋅
G
))
→
strict_subgraph
g
(
Gmon_graph
((
x
[
↦
]
w
)
⋅
G
))
→
strict_sub_children
w
v
→
strict_sub_children
w
v
→
strict_subgraph
g
(
Gmon_graph
((
x
[
↦
]
v
)
⋅
G
)).
strict_subgraph
g
(
Gmon_graph
((
x
[
↦
]
v
)
⋅
G
)).
...
...
theories/spanning_tree/proof.v
View file @
5ec0e1f5
...
@@ -51,7 +51,7 @@ Section wp_span.
...
@@ -51,7 +51,7 @@ Section wp_span.
[
by
iFrame
|].
[
by
iFrame
|].
iDestruct
(
own_graph_valid
with
"Hl1"
)
as
%
Hvl
.
iDestruct
(
own_graph_valid
with
"Hl1"
)
as
%
Hvl
.
iExists
(
Gmon_graph
G'
).
iExists
(
Gmon_graph
G'
).
assert
(
dom
(
gset
positive
)
g
=
dom
(
gset
positive
)
(
Gmon_graph
G'
)).
assert
(
dom
(
gset
loc
)
g
=
dom
(
gset
loc
)
(
Gmon_graph
G'
)).
{
erewrite
front_t_t_dom
;
eauto
.
{
erewrite
front_t_t_dom
;
eauto
.
-
by
rewrite
Gmon_graph_dom
.
-
by
rewrite
Gmon_graph_dom
.
-
eapply
front_mono
;
rewrite
Gmon_graph_dom
;
eauto
.
}
-
eapply
front_mono
;
rewrite
Gmon_graph_dom
;
eauto
.
}
...
...
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