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
Tej Chajed
iris
Commits
ba8b9e94
Commit
ba8b9e94
authored
Mar 12, 2018
by
Joseph Tassarotti
Browse files
iFresh: Force start proof when iFresh is called.
parent
938ea90c
Changes
2
Hide whitespace changes
Inline
Sidebyside
theories/proofmode/coq_tactics.v
View file @
ba8b9e94
...
...
@@ 478,10 +478,6 @@ Global Instance envs_entails_flip_mono :
Proper
(
envs_Forall2
(
⊢
)
==>
flip
(
⊢
)
==>
flip
impl
)
(@
envs_entails
PROP
).
Proof
.
rewrite
envs_entails_eq
=>
Δ
1
Δ
2
?
P1
P2
<
<.
by
f_equiv
.
Qed
.
Instance
envs_incr_counter_proper
:
Proper
(
envs_Forall2
(
⊣
⊢
)
==>
envs_Forall2
(
⊣
⊢
))
(@
envs_incr_counter
PROP
).
Proof
.
intros
??
[?
?]
;
by
constructor
=>
//=.
Qed
.
(** * Adequacy *)
Lemma
tac_adequate
P
:
envs_entails
(
Envs
Enil
Enil
1
)
P
→
P
.
Proof
.
...
...
theories/proofmode/tactics.v
View file @
ba8b9e94
...
...
@@ 40,17 +40,6 @@ Ltac iSolveTC :=
solve
[
once
(
typeclasses
eauto
)].
(** * Misc *)
(* Tactic Notation tactics cannot return terms *)
Ltac
iFresh
:
=
lazymatch
goal
with

envs_entails
?
Δ
_
=>
let
do_incr
:
=
(
lazymatch
goal
with
_
=>
eapply
tac_fresh
;
first
by
(
env_reflexivity
)
end
)
in
let
n
:
=
eval
env_cbv
in
(
Pos
.
succ
(
env_counter
Δ
))
in
constr
:
(
IAnon
n
)

_
=>
constr
:
(
IAnon
1
)
end
.
Ltac
iMissingHyps
Hs
:
=
let
Δ
:
=
...
...
@@ 100,6 +89,18 @@ Tactic Notation "iStartProof" uconstr(PROP) :=

apply
tac_adequate
]
end
.
(** * Generate a fresh identifier *)
(* Tactic Notation tactics cannot return terms *)
Ltac
iFresh
:
=
let
do_incr
:
=
lazymatch
goal
with

_
=>
iStartProof
;
eapply
tac_fresh
;
first
by
(
env_reflexivity
)
end
in
lazymatch
goal
with

envs_entails
?
Δ
_
=>
let
n
:
=
eval
env_cbv
in
(
env_counter
Δ
)
in
constr
:
(
IAnon
n
)
end
.
(** * Simplification *)
Tactic
Notation
"iEval"
tactic
(
t
)
:
=
...
...
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