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
Tej Chajed
iris
Commits
1113f98e
Commit
1113f98e
authored
Feb 09, 2015
by
Ralf Jung
Browse files
coq formatting
parent
091265d4
Changes
1
Hide whitespace changes
Inline
Side-by-side
world_prop.v
View file @
1113f98e
...
...
@@ -7,11 +7,11 @@ Require Import ModuRes.PCM ModuRes.UPred ModuRes.BI.
(* This interface keeps some of the details of the solution opaque *)
Module
Type
WORLD_PROP
(
Res
:
PCM_T
).
(* PreProp: The solution to the recursive equation. Equipped with a discrete order *)
(* PreProp: The solution to the recursive equation. Equipped with a discrete order
.
*)
Parameter
PreProp
:
cmtyp
.
Instance
PProp_preo
:
preoType
PreProp
:
=
disc_preo
PreProp
.
Instance
PProp_pcm
:
pcmType
PreProp
:
=
disc_pcm
PreProp
.
Instance
PProp_ext
:
extensible
PreProp
:
=
disc_ext
PreProp
.
Instance
PProp_preo
:
preoType
PreProp
:
=
disc_preo
PreProp
.
Instance
PProp_pcm
:
pcmType
PreProp
:
=
disc_pcm
PreProp
.
Instance
PProp_ext
:
extensible
PreProp
:
=
disc_ext
PreProp
.
(* Defines Worlds, Propositions *)
Definition
Wld
:
=
nat
-
f
>
PreProp
.
...
...
@@ -24,7 +24,6 @@ Module Type WORLD_PROP (Res : PCM_T).
Instance
Props_preo
:
preoType
Props
|
1
:
=
_
.
Instance
Props_pcm
:
pcmType
Props
|
1
:
=
_
.
(* Establish the recursion isomorphism *)
Parameter
ı
:
PreProp
-
n
>
halve
(
cmfromType
Props
).
Parameter
ı
'
:
halve
(
cmfromType
Props
)
-
n
>
PreProp
.
...
...
@@ -32,6 +31,7 @@ Module Type WORLD_PROP (Res : PCM_T).
Axiom
isoR
:
forall
T
,
ı
(
ı
'
T
)
==
T
.
End
WORLD_PROP
.
(* Now we come to the actual implementation *)
Module
WorldProp
(
Res
:
PCM_T
)
:
WORLD_PROP
Res
.
...
...
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