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
Pierre-Marie Pédrot
Iris
Commits
52cc6b15
Commit
52cc6b15
authored
Feb 11, 2016
by
Ralf Jung
Browse files
slightly simplify some proofs in upred.v
parent
3a86d2ff
Changes
1
Hide whitespace changes
Inline
Side-by-side
algebra/upred.v
View file @
52cc6b15
...
...
@@ -341,13 +341,13 @@ Global Instance iff_proper :
(** Introduction and elimination rules *)
Lemma
const_intro
φ
P
:
φ
→
P
⊑
■
φ
.
Proof
.
by
intros
??
[|?]
.
Qed
.
Proof
.
by
intros
??
?
.
Qed
.
Lemma
const_elim
φ
Q
R
:
Q
⊑
■
φ
→
(
φ
→
Q
⊑
R
)
→
Q
⊑
R
.
Proof
.
intros
HQP
HQR
x
n
??
;
apply
HQR
;
first
eapply
(
HQP
_
n
)
;
eauto
.
Qed
.
Lemma
True_intro
P
:
P
⊑
True
.
Proof
.
by
apply
const_intro
.
Qed
.
Lemma
False_elim
P
:
False
⊑
P
.
Proof
.
by
intros
x
[|
n
]
?.
Qed
.
Proof
.
by
intros
x
n
?.
Qed
.
Lemma
and_elim_l
P
Q
:
(
P
∧
Q
)
⊑
P
.
Proof
.
by
intros
x
n
?
[??].
Qed
.
Lemma
and_elim_r
P
Q
:
(
P
∧
Q
)
⊑
Q
.
...
...
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