Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
Pierre-Marie Pédrot
Iris
Commits
ea64fd14
Commit
ea64fd14
authored
Feb 13, 2017
by
Robbert Krebbers
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Let iAssumption succeed when there is H : False.
parent
a16d59ea
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
5 additions
and
0 deletions
+5
-0
theories/proofmode/class_instances.v
theories/proofmode/class_instances.v
+2
-0
theories/tests/proofmode.v
theories/tests/proofmode.v
+3
-0
No files found.
theories/proofmode/class_instances.v
View file @
ea64fd14
...
...
@@ -10,6 +10,8 @@ Context {M : ucmraT}.
Implicit
Types
P
Q
R
:
uPred
M
.
(* FromAssumption *)
Global
Instance
from_assumption_False
p
P
:
FromAssumption
p
False
P
.
Proof
.
destruct
p
;
rewrite
/
FromAssumption
/=
?always_pure
;
apply
False_elim
.
Qed
.
Global
Instance
from_assumption_exact
p
P
:
FromAssumption
p
P
P
.
Proof
.
destruct
p
;
by
rewrite
/
FromAssumption
/=
?always_elim
.
Qed
.
Global
Instance
from_assumption_always_l
p
P
Q
:
...
...
theories/tests/proofmode.v
View file @
ea64fd14
...
...
@@ -127,3 +127,6 @@ Proof. iIntros "HP". iExists (0:nat). iApply ("HP" $! (0:nat)). Qed.
Lemma
demo_13
(
M
:
ucmraT
)
(
P
:
uPred
M
)
:
(|==>
False
)
-
∗
|==>
P
.
Proof
.
iIntros
.
iAssert
False
%
I
with
">[-]"
as
"[]"
.
done
.
Qed
.
Lemma
demo_14
(
M
:
ucmraT
)
(
P
:
uPred
M
)
:
False
-
∗
P
.
Proof
.
iIntros
"H"
.
done
.
Qed
.
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