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
Simon Spies
Iris
Commits
f565ab43
Commit
f565ab43
authored
Nov 17, 2015
by
Robbert Krebbers
Browse files
Generalize setoid_subst.
parent
e0a9fa60
Changes
1
Hide whitespace changes
Inline
Side-by-side
prelude/tactics.v
View file @
f565ab43
...
...
@@ -207,9 +207,9 @@ Ltac f_lia :=
end
.
Ltac
f_lia'
:
=
csimpl
in
*
;
f_lia
.
Ltac
setoid_subst_
l
x
:
=
Ltac
setoid_subst_
aux
R
x
:
=
match
goal
with
|
H
:
x
≡
?y
|-
_
=>
|
H
:
R
x
?y
|-
_
=>
is_var
x
;
try
match
y
with
x
_
=>
fail
2
end
;
repeat
match
goal
with
...
...
@@ -223,8 +223,8 @@ Ltac setoid_subst_l x :=
Ltac
setoid_subst
:
=
repeat
match
goal
with
|
_
=>
progress
simplify_equality'
|
H
:
?x
≡
_
|-
_
=>
setoid_subst_
l
x
|
H
:
_
≡
?x
|-
_
=>
symmetry
in
H
;
setoid_subst_
l
x
|
H
:
@
equiv
_
?e
?x
_
|-
_
=>
setoid_subst_
aux
(@
equiv
_
e
)
x
|
H
:
@
equiv
_
?e
_
?x
|-
_
=>
symmetry
in
H
;
setoid_subst_
aux
(@
equiv
_
e
)
x
end
.
(** Given a tactic [tac2] generating a list of terms, [iter tac1 tac2]
...
...
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