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
Marianna Rapoport
iris-coq
Commits
170c76a3
Commit
170c76a3
authored
Nov 02, 2017
by
Robbert Krebbers
Browse files
Simplify proof of `forall_timeless`.
parent
919c0bde
Changes
1
Hide whitespace changes
Inline
Side-by-side
theories/base_logic/derived.v
View file @
170c76a3
...
...
@@ -937,11 +937,8 @@ Qed.
Global
Instance
forall_timeless
{
A
}
(
Ψ
:
A
→
uPred
M
)
:
(
∀
x
,
Timeless
(
Ψ
x
))
→
Timeless
(
∀
x
,
Ψ
x
).
Proof
.
rewrite
/
Timeless
=>
HQ
.
rewrite
later_false_excluded_middle
.
apply
or_mono
;
first
done
.
apply
forall_intro
=>
x
.
rewrite
-(
l
ö
b
(
Ψ
x
))
;
apply
impl_intro_l
.
rewrite
HQ
/
uPred_except_0
!
and_or_r
.
apply
or_elim
;
last
auto
.
by
rewrite
impl_elim_r
(
forall_elim
x
).
rewrite
/
Timeless
=>
HQ
.
rewrite
except_0_forall
later_forall
.
apply
forall_mono
;
auto
.
Qed
.
Global
Instance
exist_timeless
{
A
}
(
Ψ
:
A
→
uPred
M
)
:
(
∀
x
,
Timeless
(
Ψ
x
))
→
Timeless
(
∃
x
,
Ψ
x
).
...
...
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