Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
George Pirlea
Iris
Commits
669dafd2
Commit
669dafd2
authored
Jan 25, 2017
by
Ralf Jung
Browse files
rename fixpoint2 -> fixpointAB
parent
86967a81
Changes
1
Show whitespace changes
Inline
Side-by-side
theories/algebra/ofe.v
View file @
669dafd2
...
...
@@ -262,7 +262,7 @@ Section fixpoint.
End
fixpoint
.
(** Mutual fixpoints *)
Section
fixpoint
2
.
Section
fixpoint
AB
.
Local
Unset
Default
Proof
Using
.
Context
`
{
Cofe
A
,
Cofe
B
,
!
Inhabited
A
,
!
Inhabited
B
}.
...
...
@@ -306,9 +306,9 @@ Section fixpoint2.
Qed
.
Lemma
fixpoint_B_unique
p
q
:
fA
p
q
≡
p
→
fB
p
q
≡
q
→
q
≡
fixpoint_B
.
Proof
.
intros
.
apply
fixpoint_unique
.
by
rewrite
-
fixpoint_A_unique
.
Qed
.
End
fixpoint
2
.
End
fixpoint
AB
.
Section
fixpoint
2
_ne
.
Section
fixpoint
AB
_ne
.
Context
`
{
Cofe
A
,
Cofe
B
,
!
Inhabited
A
,
!
Inhabited
B
}.
Context
(
fA
fA'
:
A
→
B
→
A
).
Context
(
fB
fB'
:
A
→
B
→
B
).
...
...
@@ -340,7 +340,7 @@ Section fixpoint2_ne.
(
∀
x
y
,
fA
x
y
≡
fA'
x
y
)
→
(
∀
x
y
,
fB
x
y
≡
fB'
x
y
)
→
fixpoint_B
fA
fB
≡
fixpoint_B
fA'
fB'
.
Proof
.
setoid_rewrite
equiv_dist
;
naive_solver
eauto
using
fixpoint_B_ne
.
Qed
.
End
fixpoint
2
_ne
.
End
fixpoint
AB
_ne
.
(** Function space *)
(* We make [ofe_fun] a definition so that we can register it as a canonical
...
...
Write
Preview
Supports
Markdown
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