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
Iris
Iris
Commits
95b66417
Commit
95b66417
authored
May 16, 2022
by
Ralf Jung
Browse files
use FromAssumption false in tac_assumption_coq
parent
1b5e1bc6
Changes
2
Hide whitespace changes
Inline
Side-by-side
iris/proofmode/coq_tactics.v
View file @
95b66417
...
...
@@ -92,14 +92,14 @@ Qed.
Lemma
tac_assumption_coq
Δ
P
Q
:
(
⊢
P
)
→
FromAssumption
tru
e
P
Q
→
FromAssumption
fals
e
P
Q
→
(
if
env_spatial_is_nil
Δ
then
TCTrue
else
TCOr
(
Absorbing
Q
)
(
AffineEnv
(
env_spatial
Δ
)))
→
envs_entails
Δ
Q
.
Proof
.
rewrite
/
FromAssumption
/
bi_emp_valid
/=
=>
HP
HPQ
H
.
rewrite
envs_entails_unseal
-(
left_id
emp
%
I
bi_sep
(
of_envs
Δ
)).
rewrite
-
bi
.
intuitionistically_emp
HP
HPQ
.
rewrite
HP
HPQ
.
destruct
(
env_spatial_is_nil
_
)
eqn
:
?.
-
by
rewrite
(
env_spatial_is_nil_intuitionistically
_
)
//
sep_elim_l
.
-
destruct
H
;
by
rewrite
sep_elim_l
.
...
...
iris/proofmode/ltac_tactics.v
View file @
95b66417
...
...
@@ -288,7 +288,7 @@ Tactic Notation "iAssumptionCoq" :=
let
Hass
:
=
fresh
in
match
goal
with
|
H
:
⊢
?P
|-
envs_entails
_
?Q
=>
pose
proof
(
_
:
FromAssumption
tru
e
P
Q
)
as
Hass
;
pose
proof
(
_
:
FromAssumption
fals
e
P
Q
)
as
Hass
;
notypeclasses
refine
(
tac_assumption_coq
_
P
_
H
_
_
)
;
[
exact
Hass
|
pm_reduce
;
iSolveTC
||
...
...
Write
Preview
Supports
Markdown
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