Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
Jules Jacobs
Iris
Commits
f2eabe78
Commit
f2eabe78
authored
Mar 12, 2020
by
Robbert Krebbers
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Close issue #299: `leibnizO` finds convoluted proof for definitions
parent
79f576aa
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
12 additions
and
1 deletion
+12
-1
tests/algebra.v
tests/algebra.v
+8
-0
theories/algebra/ofe.v
theories/algebra/ofe.v
+4
-1
No files found.
tests/algebra.v
View file @
f2eabe78
From
iris
.
base_logic
.
lib
Require
Import
invariants
.
(** Make sure that the same [Equivalence] instance is picked for Leibniz OFEs
with carriers that are definitionally equal. See also
https://gitlab.mpi-sws.org/iris/iris/issues/299 *)
Definition
tag
:
=
nat
.
Canonical
Structure
tagO
:
=
leibnizO
tag
.
Goal
tagO
=
natO
.
Proof
.
reflexivity
.
Qed
.
Instance
test_cofe
{
Σ
}
:
Cofe
(
iPrePropO
Σ
)
:
=
_
.
Section
tests
.
...
...
theories/algebra/ofe.v
View file @
f2eabe78
...
...
@@ -885,7 +885,10 @@ Section discrete_ofe.
End
discrete_ofe
.
Notation
discreteO
A
:
=
(
OfeT
A
(
discrete_ofe_mixin
_
)).
Notation
leibnizO
A
:
=
(
OfeT
A
(@
discrete_ofe_mixin
_
equivL
_
)).
(** Force the [Equivalence] proof to be [eq_equivalence] so that it does not
find another one, like [ofe_equivalence], in the case of aliases. See also
https://gitlab.mpi-sws.org/iris/iris/issues/229 *)
Notation
leibnizO
A
:
=
(
OfeT
A
(@
discrete_ofe_mixin
_
equivL
eq_equivalence
)).
(** In order to define a discrete CMRA with carrier [A] (in the file [cmra.v])
we need to determine the [Equivalence A] proof that was used to construct the
...
...
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