Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Marianna Rapoport
iriscoq
Commits
c55ce76d
Commit
c55ce76d
authored
Nov 17, 2015
by
Robbert Krebbers
Browse files
Subst tactic for the distance relation of a metric.
parent
f565ab43
Changes
1
Hide whitespace changes
Inline
Sidebyside
iris/cofe.v
View file @
c55ce76d
...
@@ 8,6 +8,12 @@ Notation "x ={ n }= y" := (dist n x y)
...
@@ 8,6 +8,12 @@ Notation "x ={ n }= y" := (dist n x y)
(
at
level
70
,
n
at
next
level
,
format
"x ={ n }= y"
).
(
at
level
70
,
n
at
next
level
,
format
"x ={ n }= y"
).
Hint
Extern
0
(
?x
={
_
}=
?x
)
=>
reflexivity
.
Hint
Extern
0
(
?x
={
_
}=
?x
)
=>
reflexivity
.
Hint
Extern
0
(
_
={
_
}=
_
)
=>
symmetry
;
assumption
.
Hint
Extern
0
(
_
={
_
}=
_
)
=>
symmetry
;
assumption
.
Ltac
cofe_subst
:
=
repeat
match
goal
with

_
=>
progress
simplify_equality'

H
:
@
dist
_
?d
?n
?x
_

_
=>
setoid_subst_aux
(@
dist
_
d
n
)
x

H
:
@
dist
_
?d
?n
_
?x

_
=>
symmetry
in
H
;
setoid_subst_aux
(@
dist
_
d
n
)
x
end
.
Record
chain
(
A
:
Type
)
`
{
Dist
A
}
:
=
{
Record
chain
(
A
:
Type
)
`
{
Dist
A
}
:
=
{
chain_car
:
>
nat
→
A
;
chain_car
:
>
nat
→
A
;
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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