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
Iris
Fairis
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