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
Dan Frumin
iris-coq
Commits
79df624d
Commit
79df624d
authored
Jun 08, 2016
by
Robbert Krebbers
Browse files
Small clean up.
parent
66904606
Changes
1
Hide whitespace changes
Inline
Side-by-side
tests/joining_existentials.v
View file @
79df624d
...
...
@@ -57,8 +57,8 @@ Proof.
{
iCombine
"Hγ"
"Hγ'"
as
"Hγ2"
.
iClear
"Hγ Hγ'"
.
rewrite
own_valid
csum_validI
/=
agree_validI
agree_equivI
later_equivI
/=
.
rewrite
-{
2
}
[
x
]
cFunctor_id
-{
2
}
[
x
'
]
cFunctor_id
.
rewrite
(
ne_proper
(
cFunctor_map
G
)
(
cid
,
cid
)
(
_
◎
_
,
_
◎
_
)).
2
:
by
split
;
intro
;
simpl
;
symmetry
;
apply
iProp_fold_unfold
.
rewrite
(
ne_proper
(
cFunctor_map
G
)
(
cid
,
cid
)
(
_
◎
_
,
_
◎
_
))
;
last
first
.
{
by
split
;
intro
;
simpl
;
symmetry
;
apply
iProp_fold_unfold
.
}
rewrite
!
cFunctor_compose
.
iNext
.
by
iRewrite
"Hγ2"
.
}
iNext
.
iRewrite
-
"Hxx"
in
"Hx'"
.
iExists
x
;
iFrame
"Hγ"
.
iApply
Ψ
_
join
;
by
iSplitL
"Hx"
.
...
...
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