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
Jonas Kastberg
iris
Commits
f5141d1d
Commit
f5141d1d
authored
Oct 28, 2017
by
Robbert Krebbers
Browse files
Add `FromForall` instance for `not`. This fixes issue #108.
parent
441894ae
Changes
2
Hide whitespace changes
Inline
Side-by-side
theories/proofmode/class_instances.v
View file @
f5141d1d
...
...
@@ -772,6 +772,9 @@ Proof. done. Qed.
Global
Instance
from_forall_pure
{
A
}
(
φ
:
A
→
Prop
)
:
@
FromForall
M
A
(
⌜
∀
a
:
A
,
φ
a
⌝
)
(
λ
a
,
⌜
φ
a
⌝
)%
I
.
Proof
.
by
rewrite
/
FromForall
pure_forall
.
Qed
.
Global
Instance
from_forall_pure_not
(
φ
:
Prop
)
:
@
FromForall
M
φ
(
⌜
¬
φ⌝
)
(
λ
a
:
φ
,
False
)%
I
.
Proof
.
by
rewrite
/
FromForall
pure_forall
.
Qed
.
Global
Instance
from_forall_impl_pure
P
Q
φ
:
IntoPureT
P
φ
→
FromForall
(
P
→
Q
)
(
λ
_
:
φ
,
Q
)%
I
.
Proof
.
...
...
theories/tests/proofmode.v
View file @
f5141d1d
...
...
@@ -233,6 +233,9 @@ Qed.
Lemma
test_iIntros_rewrite
P
(
x1
x2
x3
x4
:
nat
)
:
x1
=
x2
→
(
⌜
x2
=
x3
⌝
∗
⌜
x3
≡
x4
⌝
∗
P
)
-
∗
⌜
x1
=
x4
⌝
∗
P
.
Proof
.
iIntros
(?)
"(-> & -> & $)"
;
auto
.
Qed
.
Lemma
test_iItros_pure
:
(
⌜
¬
False
⌝
:
uPred
M
)%
I
.
Proof
.
by
iIntros
(?).
Qed
.
End
tests
.
Section
more_tests
.
...
...
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