Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Iris
stdpp
Commits
05eb175e
Commit
05eb175e
authored
Nov 09, 2017
by
Johannes Kloos
Browse files
Fix the size of wg_guard unfolding
parent
e1ae086f
Changes
1
Hide whitespace changes
Inline
Side-by-side
theories/infinite.v
View file @
05eb175e
...
...
@@ -71,7 +71,7 @@ Section Fresh.
apply
inbelow
;
omega
.
Qed
.
Instance
fresh_generic
:
Fresh
A
C
:
=
λ
s
,
fresh_generic_fix
s
0
.
Instance
fresh_generic
:
Fresh
A
C
:
=
λ
s
,
fresh_generic_fix
20
s
0
.
Instance
fresh_generic_spec
:
FreshSpec
A
C
.
Proof
.
...
...
@@ -79,16 +79,16 @@ Section Fresh.
-
apply
_
.
-
intros
*
eqXY
.
unfold
fresh
,
fresh_generic
.
destruct
(
fresh_generic_fixpoint_spec
(
1
+
Nat
.
log2
(
size
X
))
X
0
)
destruct
(
fresh_generic_fixpoint_spec
20
X
0
)
as
[
mX
[
_
[->
[
notinX
belowinX
]]]].
destruct
(
fresh_generic_fixpoint_spec
(
1
+
Nat
.
log2
(
size
Y
))
Y
0
)
destruct
(
fresh_generic_fixpoint_spec
20
Y
0
)
as
[
mY
[
_
[->
[
notinY
belowinY
]]]].
destruct
(
Nat
.
lt_trichotomy
mX
mY
)
as
[
case
|[->|
case
]]
;
auto
.
+
contradict
notinX
;
rewrite
eqXY
;
apply
belowinY
;
omega
.
+
contradict
notinY
;
rewrite
<-
eqXY
;
apply
belowinX
;
omega
.
-
intro
.
unfold
fresh
,
fresh_generic
.
destruct
(
fresh_generic_fixpoint_spec
(
1
+
Nat
.
log2
(
size
X
))
X
0
)
destruct
(
fresh_generic_fixpoint_spec
20
X
0
)
as
[
m
[
_
[->
[
notinX
belowinX
]]]]
;
auto
.
Qed
.
End
Fresh
.
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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