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
Joshua Yanovski
iris-coq
Commits
3967e715
Commit
3967e715
authored
Jan 13, 2016
by
Robbert Krebbers
Browse files
Variant of setoid_subst for individual variable.
parent
5704668c
Changes
1
Hide whitespace changes
Inline
Side-by-side
modures/cofe.v
View file @
3967e715
...
...
@@ -7,7 +7,14 @@ Notation "x ={ n }= y" := (dist n x y)
(
at
level
70
,
n
at
next
level
,
format
"x ={ n }= y"
).
Hint
Extern
0
(
?
x
={
_
}=
?
x
)
=>
reflexivity
.
Hint
Extern
0
(
_
={
_
}=
_
)
=>
symmetry
;
assumption
.
Ltac
cofe_subst
:=
Tactic
Notation
"cofe_subst"
ident
(
x
)
:=
repeat
match
goal
with
|
_
=>
progress
simplify_equality
'
|
H
:@
dist
?
A
?
d
?
n
x
_
|-
_
=>
setoid_subst_aux
(
@
dist
A
d
n
)
x
|
H
:@
dist
?
A
?
d
?
n
_
x
|-
_
=>
symmetry
in
H
;
setoid_subst_aux
(
@
dist
A
d
n
)
x
end
.
Tactic
Notation
"cofe_subst"
:=
repeat
match
goal
with
|
_
=>
progress
simplify_equality
'
|
H
:@
dist
?
A
?
d
?
n
?
x
_
|-
_
=>
setoid_subst_aux
(
@
dist
A
d
n
)
x
...
...
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