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
Rodolphe Lepigre
Iris
Commits
2ac88879
Commit
2ac88879
authored
Jan 30, 2015
by
Ralf Jung
Browse files
start writing a signature for the world-prop solution
parent
209ec3aa
Changes
1
Hide whitespace changes
Inline
Side-by-side
world_prop_sig.v
0 → 100644
View file @
2ac88879
(* For some reason, the order matters. We cannot import Constr last. *)
Require
Import
ModuRes
.
Finmap
ModuRes
.
Constr
ModuRes
.
PCM
ModuRes
.
UPred
ModuRes
.
BI
ModuRes
.
PreoMet
.
Module
Type
WorldPropSig
(
Res
:
PCM_T
).
(** The construction is parametric in the monoid we choose *)
Import
Res
.
(* The functor is fixed *)
Section
Definitions
.
(** We'll be working with complete metric spaces, so whenever
something needs an additional preorder, we'll just take a
discrete one. *)
Local
Instance
pt_disc
P
`
{
cmetric
P
}
:
preoType
P
|
2000
:
=
disc_preo
P
.
Local
Instance
pcm_disc
P
`
{
cmetric
P
}
:
pcmType
P
|
2000
:
=
disc_pcm
P
.
Definition
FProp
P
`
{
cmP
:
cmetric
P
}
:
=
(
nat
-
f
>
P
)
-
m
>
UPred
res
.
End
Definitions
.
Parameter
PreProp
:
Type
.
Parameter
PrePropS
:
Setoid
PreProp
.
Parameter
PrePropM
:
metric
PreProp
.
Parameter
PrePropCM
:
cmetric
PreProp
.
Definition
Props
:
=
FProp
PreProp
.
Parameter
PropS
:
Setoid
Props
.
Parameter
PropM
:
metric
Props
.
Parameter
PropCM
:
cmetric
Props
.
Definition
Wld
:
=
(
nat
-
f
>
PreProp
).
Parameter
ı
:
PreProp
->
halve
(
cmfromType
Props
).
Parameter
ı
'
:
halve
(
cmfromType
Props
)
->
PreProp
.
Axiom
iso
:
forall
P
,
ı
'
(
ı
P
)
==
P
.
Axiom
isoR
:
forall
T
,
ı
(
ı
'
T
)
==
T
.
(*Parameter PProp_preo : preoType PreProp.
Parameter PProp_pcm : pcmType PreProp.
Parameter PProp_ext : extensible PreProp.*)
End
WorldPropSig
.
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