Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Iris
Iris
Commits
fd2acffe
Commit
fd2acffe
authored
Nov 15, 2017
by
Ralf Jung
Browse files
show an alternative characterization of plainly
parent
60c28208
Pipeline
#5412
passed with stages
in 6 minutes and 51 seconds
Changes
2
Pipelines
1
Hide whitespace changes
Inline
Sidebyside
theories/base_logic/derived.v
View file @
fd2acffe
...
...
@@ 978,6 +978,17 @@ Lemma plainly_plainly P `{!Plain P} : ■ P ⊣⊢ P.
Proof
.
apply
(
anti_symm
(
⊢
))
;
eauto
.
Qed
.
Lemma
plainly_intro
P
Q
`
{!
Plain
P
}
:
(
P
⊢
Q
)
→
P
⊢
■
Q
.
Proof
.
rewrite
(
plainly_plainly
P
)
;
apply
plainly_intro'
.
Qed
.
Lemma
plainly_alt
P
:
■
P
⊣
⊢
P
≡
True
.
Proof
.
apply
(
anti_symm
(
⊢
)).

rewrite

prop_ext
.
apply
plainly_intro'
.
rewrite
plainly_elim
.
apply
and_intro
;
apply
impl_intro_r
.
+
apply
True_intro
.
+
apply
and_elim_l
.

rewrite
internal_eq_sym
(
internal_eq_rewrite
_
_
(
λ
P
,
■
P
)%
I
).
eapply
impl_elim
;
first
reflexivity
.
rewrite
plainly_pure
.
apply
True_intro
.
Qed
.
Lemma
bupd_plain
P
`
{!
Plain
P
}
:
(==>
P
)
⊢
P
.
Proof
.
by
rewrite
{
1
}(
plainly_plainly
P
)
bupd_plainly
.
Qed
.
...
...
theories/base_logic/primitive.v
View file @
fd2acffe
...
...
@@ 650,7 +650,7 @@ Proof.

intros
i
a
b
;
eapply
Hf
,
ucmra_unit_validN
.
Qed
.
(* Function
s
*)
(* Function
extensionality
*)
Lemma
ofe_funC_equivI
{
A
B
}
(
f
g
:
A

c
>
B
)
:
f
≡
g
⊣
⊢
∀
x
,
f
x
≡
g
x
.
Proof
.
by
unseal
.
Qed
.
Lemma
ofe_morC_equivI
{
A
B
:
ofeT
}
(
f
g
:
A

n
>
B
)
:
f
≡
g
⊣
⊢
∀
x
,
f
x
≡
g
x
.
...
...
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