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
Iris
Commits
ee8815c0
Commit
ee8815c0
authored
Jun 21, 2019
by
Robbert Krebbers
Browse files
Have `iNext` turn `Next x ≡ Next y` into `x ≡ y`.
parent
71fb10bd
Changes
1
Hide whitespace changes
Inline
Side-by-side
theories/proofmode/class_instances_sbi.v
View file @
ee8815c0
...
...
@@ -567,6 +567,14 @@ Proof.
move
=>
Hn
[
_
->|->]
<-
;
by
rewrite
-!
laterN_plus
-
Hn
Nat
.
add_comm
.
Qed
.
Global
Instance
into_laterN_Next
{
A
:
ofeT
}
only_head
n
n'
(
x
y
:
A
)
:
NatCancel
n
1
n'
0
→
IntoLaterN
(
PROP
:
=
PROP
)
only_head
n
(
Next
x
≡
Next
y
)
(
x
≡
y
)
|
2
.
Proof
.
rewrite
/
MakeLaterN
/
IntoLaterN
/
MaybeIntoLaterN
/
NatCancel
Nat
.
add_0_r
.
move
=>
<-.
rewrite
later_equivI
.
by
rewrite
Nat
.
add_comm
/=
-
laterN_intro
.
Qed
.
Global
Instance
into_laterN_and_l
n
P1
P2
Q1
Q2
:
IntoLaterN
false
n
P1
Q1
→
MaybeIntoLaterN
false
n
P2
Q2
→
IntoLaterN
false
n
(
P1
∧
P2
)
(
Q1
∧
Q2
)
|
10
.
...
...
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