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
stdpp
Commits
825246d6
Commit
825246d6
authored
Jan 29, 2019
by
Robbert Krebbers
Browse files
More consistency in relations.v.
parent
1d98d4ac
Changes
1
Hide whitespace changes
Inline
Side-by-side
theories/relations.v
View file @
825246d6
...
...
@@ -235,15 +235,15 @@ Lemma Fix_F_proper `{R : relation A} (B : A → Type) (E : ∀ x, relation (B x)
E
_
(
Fix_F
B
F
acc1
)
(
Fix_F
B
F
acc2
).
Proof
.
revert
x
acc1
acc2
.
fix
FIX
2
.
intros
x
[
acc1
]
[
acc2
]
;
simpl
;
auto
.
Qed
.
Lemma
Fix_unfold_rel
`
{
R
:
relation
A
}
(
wfR
:
wf
R
)
(
B
:
A
→
Type
)
(
E
:
∀
x
,
relation
(
B
x
))
(
F
:
∀
x
,
(
∀
y
,
R
y
x
→
B
y
)
→
B
x
)
(
HF
:
∀
(
x
:
A
)
(
f
g
:
∀
y
,
R
y
x
→
B
y
),
(
∀
y
Hy
Hy'
,
E
_
(
f
y
Hy
)
(
g
y
Hy'
))
→
E
_
(
F
x
f
)
(
F
x
g
))
(
x
:
A
)
:
Lemma
Fix_unfold_rel
`
{
R
:
relation
A
}
(
wfR
:
wf
R
)
(
B
:
A
→
Type
)
(
E
:
∀
x
,
relation
(
B
x
))
(
F
:
∀
x
,
(
∀
y
,
R
y
x
→
B
y
)
→
B
x
)
(
HF
:
∀
(
x
:
A
)
(
f
g
:
∀
y
,
R
y
x
→
B
y
),
(
∀
y
Hy
Hy'
,
E
_
(
f
y
Hy
)
(
g
y
Hy'
))
→
E
_
(
F
x
f
)
(
F
x
g
))
(
x
:
A
)
:
E
_
(
Fix
wfR
B
F
x
)
(
F
x
(
λ
y
_
,
Fix
wfR
B
F
y
)).
Proof
.
unfold
Fix
.
destruct
(
wfR
x
)
;
cbn
.
destruct
(
wfR
x
)
;
simpl
.
apply
HF
;
intros
.
apply
Fix_F_proper
;
auto
.
Qed
.
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