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
Jonas Kastberg
iris
Commits
5a2cbf99
Commit
5a2cbf99
authored
Feb 16, 2016
by
Robbert Krebbers
Browse files
Conversion of gset to set.
parent
53edf58b
Changes
1
Hide whitespace changes
Inline
Side-by-side
prelude/gmap.v
View file @
5a2cbf99
...
...
@@ -3,7 +3,7 @@
(** This file implements finite maps and finite sets with keys of any countable
type. The implementation is based on [Pmap]s, radix-2 search trees. *)
From
prelude
Require
Export
countable
fin_maps
fin_map_dom
.
From
prelude
Require
Import
pmap
mapset
.
From
prelude
Require
Import
pmap
mapset
sets
.
(** * The data structure *)
(** We pack a [Pmap] together with a proof that ensures that all keys correspond
...
...
@@ -118,6 +118,10 @@ Instance gset_dom `{Countable K} {A} : Dom (gmap K A) (gset K) := mapset_dom.
Instance
gset_dom_spec
`
{
Countable
K
}
:
FinMapDom
K
(
gmap
K
)
(
gset
K
)
:
=
mapset_dom_spec
.
Definition
of_gset
`
{
Countable
A
}
(
X
:
gset
A
)
:
set
A
:
=
mkSet
(
λ
x
,
x
∈
X
).
Lemma
elem_of_of_gset
`
{
Countable
A
}
(
X
:
gset
A
)
x
:
x
∈
of_gset
X
↔
x
∈
X
.
Proof
.
done
.
Qed
.
(** * Fresh elements *)
(* This is pretty ad-hoc and just for the case of [gset positive]. We need a
notion of countable non-finite types to generalize this. *)
...
...
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