Skip to content
GitLab
Explore
Sign in
Primary navigation
Search or go to…
Project
I
iris-coq
Manage
Activity
Members
Labels
Plan
Issues
Issue boards
Milestones
Wiki
Code
Merge requests
Repository
Branches
Commits
Tags
Repository graph
Compare revisions
Build
Pipelines
Jobs
Pipeline schedules
Artifacts
Deploy
Releases
Model registry
Operate
Environments
Monitor
Incidents
Service Desk
Analyze
Value stream analytics
Contributor analytics
CI/CD analytics
Repository analytics
Model experiments
Help
Help
Support
GitLab documentation
Compare GitLab plans
Community forum
Contribute to GitLab
Provide feedback
Terms and privacy
Keyboard shortcuts
?
Snippets
Groups
Projects
Show more breadcrumbs
Amin Timany
iris-coq
Commits
1113f98e
Commit
1113f98e
authored
10 years ago
by
Ralf Jung
Browse files
Options
Downloads
Patches
Plain Diff
coq formatting
parent
091265d4
No related branches found
No related tags found
No related merge requests found
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
world_prop.v
+5
-5
5 additions, 5 deletions
world_prop.v
with
5 additions
and
5 deletions
world_prop.v
+
5
−
5
View file @
1113f98e
...
@@ -7,11 +7,11 @@ Require Import ModuRes.PCM ModuRes.UPred ModuRes.BI.
...
@@ -7,11 +7,11 @@ Require Import ModuRes.PCM ModuRes.UPred ModuRes.BI.
(* This interface keeps some of the details of the solution opaque *)
(* This interface keeps some of the details of the solution opaque *)
Module
Type
WORLD_PROP
(
Res
:
PCM_T
)
.
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
.
Parameter
PreProp
:
cmtyp
.
Instance
PProp_preo
:
preoType
PreProp
:=
disc_preo
PreProp
.
Instance
PProp_preo
:
preoType
PreProp
:=
disc_preo
PreProp
.
Instance
PProp_pcm
:
pcmType
PreProp
:=
disc_pcm
PreProp
.
Instance
PProp_pcm
:
pcmType
PreProp
:=
disc_pcm
PreProp
.
Instance
PProp_ext
:
extensible
PreProp
:=
disc_ext
PreProp
.
Instance
PProp_ext
:
extensible
PreProp
:=
disc_ext
PreProp
.
(* Defines Worlds, Propositions *)
(* Defines Worlds, Propositions *)
Definition
Wld
:=
nat
-
f
>
PreProp
.
Definition
Wld
:=
nat
-
f
>
PreProp
.
...
@@ -24,7 +24,6 @@ Module Type WORLD_PROP (Res : PCM_T).
...
@@ -24,7 +24,6 @@ Module Type WORLD_PROP (Res : PCM_T).
Instance
Props_preo
:
preoType
Props
|
1
:=
_
.
Instance
Props_preo
:
preoType
Props
|
1
:=
_
.
Instance
Props_pcm
:
pcmType
Props
|
1
:=
_
.
Instance
Props_pcm
:
pcmType
Props
|
1
:=
_
.
(* Establish the recursion isomorphism *)
(* Establish the recursion isomorphism *)
Parameter
ı
:
PreProp
-
n
>
halve
(
cmfromType
Props
)
.
Parameter
ı
:
PreProp
-
n
>
halve
(
cmfromType
Props
)
.
Parameter
ı'
:
halve
(
cmfromType
Props
)
-
n
>
PreProp
.
Parameter
ı'
:
halve
(
cmfromType
Props
)
-
n
>
PreProp
.
...
@@ -32,6 +31,7 @@ Module Type WORLD_PROP (Res : PCM_T).
...
@@ -32,6 +31,7 @@ Module Type WORLD_PROP (Res : PCM_T).
Axiom
isoR
:
forall
T
,
ı
(
ı'
T
)
==
T
.
Axiom
isoR
:
forall
T
,
ı
(
ı'
T
)
==
T
.
End
WORLD_PROP
.
End
WORLD_PROP
.
(* Now we come to the actual implementation *)
(* Now we come to the actual implementation *)
Module
WorldProp
(
Res
:
PCM_T
)
:
WORLD_PROP
Res
.
Module
WorldProp
(
Res
:
PCM_T
)
:
WORLD_PROP
Res
.
...
...
This diff is collapsed.
Click to expand it.
Preview
0%
Loading
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!
Save comment
Cancel
Please
register
or
sign in
to comment