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
Rice Wine
Iris
Commits
7127e553
Commit
7127e553
authored
Apr 28, 2017
by
Robbert Krebbers
Browse files
No longer CPS iElaborateSelPat, there is no point to that.
parent
4084c886
Changes
1
Hide whitespace changes
Inline
Side-by-side
theories/proofmode/tactics.v
View file @
7127e553
...
...
@@ -75,10 +75,10 @@ Local Inductive esel_pat :=
|
ESelPure
|
ESelName
:
bool
→
string
→
esel_pat
.
Ltac
iElaborateSelPat
pat
tac
:
=
Ltac
iElaborateSelPat
pat
:
=
let
rec
go
pat
Δ
Hs
:
=
lazymatch
pat
with
|
[]
=>
let
Hs'
:
=
eval
cbv
in
Hs
in
tac
Hs'
|
[]
=>
eval
cbv
in
Hs
|
SelPure
::
?pat
=>
go
pat
Δ
(
ESelPure
::
Hs
)
|
SelPersistent
::
?pat
=>
let
Hs'
:
=
eval
env_cbv
in
(
env_dom
(
env_persistent
Δ
))
in
...
...
@@ -108,7 +108,7 @@ Tactic Notation "iClear" constr(Hs) :=
eapply
tac_clear
with
_
H
_
_;
(* (i:=H) *)
[
env_reflexivity
||
fail
"iClear:"
H
"not found"
|
go
Hs
]
end
in
iElaborateSelPat
Hs
go
.
let
Hs
:
=
iElaborateSelPat
Hs
in
go
Hs
.
Tactic
Notation
"iClear"
"("
ident_list
(
xs
)
")"
constr
(
Hs
)
:
=
iClear
Hs
;
clear
xs
.
...
...
@@ -595,7 +595,7 @@ Tactic Notation "iRevert" constr(Hs) :=
[
env_reflexivity
||
fail
"iRevert:"
H
"not found"
|
env_cbv
;
go
Hs
]
end
in
iElaborateSelPat
Hs
go
.
let
Hs
:
=
iElaborateSelPat
Hs
in
go
Hs
.
Tactic
Notation
"iRevert"
"("
ident
(
x1
)
")"
:
=
iForallRevert
x1
.
...
...
@@ -1023,7 +1023,7 @@ Tactic Notation "iRevertIntros" constr(Hs) "with" tactic(tac) :=
match
p
with
true
=>
constr
:
([
IAlwaysElim
(
IName
H
)])
|
false
=>
H
end
in
iIntros
H'
end
in
try
iStartProof
;
iElaborateSelPat
Hs
go
.
try
iStartProof
;
let
Hs
:
=
iElaborateSelPat
Hs
in
go
Hs
.
Tactic
Notation
"iRevertIntros"
"("
ident
(
x1
)
")"
constr
(
Hs
)
"with"
tactic
(
tac
)
:
=
iRevertIntros
Hs
with
(
iRevert
(
x1
)
;
tac
;
iIntros
(
x1
)).
...
...
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