Skip to content
GitLab
Explore
Sign in
Primary navigation
Search or go to…
Project
S
stdpp
Manage
Activity
Members
Labels
Plan
Issues
Issue boards
Milestones
Wiki
Code
Merge requests
Repository
Branches
Commits
Tags
Repository graph
Compare revisions
Build
Pipelines
Jobs
Pipeline schedules
Artifacts
Deploy
Releases
Package registry
Model registry
Operate
Terraform modules
Monitor
Service Desk
Analyze
Value stream analytics
Contributor analytics
CI/CD analytics
Repository analytics
Model experiments
Help
Help
Support
GitLab documentation
Compare GitLab plans
Community forum
Contribute to GitLab
Provide feedback
Terms and privacy
Keyboard shortcuts
?
Snippets
Groups
Projects
Show more breadcrumbs
Adam
stdpp
Commits
609de3aa
Commit
609de3aa
authored
4 years ago
by
Ralf Jung
Browse files
Options
Downloads
Patches
Plain Diff
add rename-by-pattern tactic
parent
96cb4bc9
No related branches found
Branches containing commit
No related tags found
Tags containing commit
No related merge requests found
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
CHANGELOG.md
+2
-0
2 additions, 0 deletions
CHANGELOG.md
tests/tactics.v
+3
-0
3 additions, 0 deletions
tests/tactics.v
theories/tactics.v
+3
-0
3 additions, 0 deletions
theories/tactics.v
with
8 additions
and
0 deletions
CHANGELOG.md
+
2
−
0
View file @
609de3aa
...
@@ -43,6 +43,8 @@ Coq 8.8 and 8.9 are no longer supported.
...
@@ -43,6 +43,8 @@ Coq 8.8 and 8.9 are no longer supported.
-
Rename
`seq_S_end_app`
to
`seq_S`
. (The lemma
`seq_S`
is also in Coq's stdlib
-
Rename
`seq_S_end_app`
to
`seq_S`
. (The lemma
`seq_S`
is also in Coq's stdlib
since Coq 8.12.)
since Coq 8.12.)
-
Remove
`omega`
import and hint database in
`tactics`
file.
-
Remove
`omega`
import and hint database in
`tactics`
file.
-
Add
`rename select <pat> into <name>`
tactic to find a hypothesis by pattern
and give it a fixed name.
The following
`sed`
script should perform most of the renaming
The following
`sed`
script should perform most of the renaming
(on macOS, replace
`sed`
by
`gsed`
, installed via e.g.
`brew install gnu-sed`
):
(on macOS, replace
`sed`
by
`gsed`
, installed via e.g.
`brew install gnu-sed`
):
...
...
This diff is collapsed.
Click to expand it.
tests/tactics.v
+
3
−
0
View file @
609de3aa
...
@@ -48,3 +48,6 @@ Proof.
...
@@ -48,3 +48,6 @@ Proof.
intros
*
HH
.
split_and
!
;
[
destruct_and
?
HH
;
assumption
|
destruct_and
?;
assumption
|
]
.
intros
*
HH
.
split_and
!
;
[
destruct_and
?
HH
;
assumption
|
destruct_and
?;
assumption
|
]
.
destruct_and
?
.
Fail
destruct_and
!.
assumption
.
destruct_and
?
.
Fail
destruct_and
!.
assumption
.
Qed
.
Qed
.
Goal
forall
(
n
:
nat
),
∃
m
:
nat
,
True
.
Proof
.
intros
?
.
rename
select
nat
into
m
.
exists
m
.
done
.
Qed
.
This diff is collapsed.
Click to expand it.
theories/tactics.v
+
3
−
0
View file @
609de3aa
...
@@ -537,6 +537,9 @@ Tactic Notation "select" open_constr(pat) tactic3(tac) :=
...
@@ -537,6 +537,9 @@ Tactic Notation "select" open_constr(pat) tactic3(tac) :=
(** [select_revert] reverts the first hypothesis matching [pat]. *)
(** [select_revert] reverts the first hypothesis matching [pat]. *)
Tactic
Notation
"revert"
"select"
open_constr
(
pat
)
:=
select
pat
(
fun
H
=>
revert
H
)
.
Tactic
Notation
"revert"
"select"
open_constr
(
pat
)
:=
select
pat
(
fun
H
=>
revert
H
)
.
Tactic
Notation
"rename"
"select"
open_constr
(
pat
)
"into"
ident
(
name
)
:=
select
pat
(
fun
H
=>
rename
H
into
name
)
.
(** Coq's [firstorder] tactic fails or loops on rather small goals already. In
(** Coq's [firstorder] tactic fails or loops on rather small goals already. In
particular, on those generated by the tactic [unfold_elem_ofs] which is used
particular, on those generated by the tactic [unfold_elem_ofs] which is used
to solve propositions on sets. The [naive_solver] tactic implements an
to solve propositions on sets. The [naive_solver] tactic implements an
...
...
This diff is collapsed.
Click to expand it.
Preview
0%
Loading
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!
Save comment
Cancel
Please
register
or
sign in
to comment