Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
Rodolphe Lepigre
Iris
Commits
2ac88879
Commit
2ac88879
authored
Jan 30, 2015
by
Ralf Jung
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
start writing a signature for the world-prop solution
parent
209ec3aa
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
44 additions
and
0 deletions
+44
-0
world_prop_sig.v
world_prop_sig.v
+44
-0
No files found.
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
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