Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
I
Iris
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
0
Issues
0
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
Rodolphe Lepigre
Iris
Commits
3ecc3dc6
Commit
3ecc3dc6
authored
Jan 31, 2015
by
Ralf Jung
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
make Coq *much* faster by introducing names for some instances
parent
4741f72f
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
26 additions
and
4 deletions
+26
-4
configure
configure
+2
-0
iris.v
iris.v
+12
-4
world_prop.v
world_prop.v
+12
-0
No files found.
configure
0 → 100755
View file @
3ecc3dc6
#!/bin/sh
coq_makefile lib/ModuRes
-R
lib/ModuRes ModuRes
*
.v
-o
Makefile
iris.v
View file @
3ecc3dc6
...
...
@@ -25,7 +25,7 @@ Module Iris (RL : PCM_T) (C : CORE_LANG).
Instance
Props_BI
:
ComplBI
Props
|
0
:
=
_
.
Instance
Props_Later
:
Later
Props
|
0
:
=
_
.
(* Benchmark: How large is thid type? *)
Section
Benchmark
.
Local
Open
Scope
mask_scope
.
...
...
@@ -33,11 +33,12 @@ Module Iris (RL : PCM_T) (C : CORE_LANG).
Local
Open
Scope
bi_scope
.
Local
Open
Scope
lang_scope
.
Local
Instance
expr_type
:
Setoid
expr
:
=
discreteType
.
Local
Instance
expr_metr
:
metric
expr
:
=
discreteMetric
.
Local
Instance
expr
_cmetr
:
cmetric
expr
:
=
discreteCMetric
.
Local
Instance
_bench_
expr_type
:
Setoid
expr
:
=
discreteType
.
Local
Instance
_bench_
expr_metr
:
metric
expr
:
=
discreteMetric
.
Local
Instance
_bench
_cmetr
:
cmetric
expr
:
=
discreteCMetric
.
Set
Printing
All
.
Check
(
expr
-
n
>
(
value
-
n
>
Props
)
-
n
>
Props
).
Check
((
expr
-
n
>
(
value
-
n
>
Props
)
-
n
>
Props
)
-
n
>
expr
-
n
>
(
value
-
n
>
Props
)
-
n
>
Props
).
End
Benchmark
.
...
...
@@ -403,6 +404,7 @@ Module Iris (RL : PCM_T) (C : CORE_LANG).
End
Erasure
.
Check
erasure
.
Notation
" p @ k "
:
=
((
p
:
UPred
())
k
tt
)
(
at
level
60
,
no
associativity
).
...
...
@@ -484,6 +486,8 @@ Module Iris (RL : PCM_T) (C : CORE_LANG).
End
ViewShifts
.
Check
vs
.
Section
ViewShiftProps
.
Local
Open
Scope
mask_scope
.
Local
Open
Scope
pcm_scope
.
...
...
@@ -996,6 +1000,8 @@ Qed.
End
HoareTriples
.
Check
wp
.
Section
Soundness
.
Local
Open
Scope
mask_scope
.
Local
Open
Scope
pcm_scope
.
...
...
@@ -1211,6 +1217,8 @@ Qed.
End
Soundness
.
Check
soundness
.
Section
HoareTripleProperties
.
Local
Open
Scope
mask_scope
.
Local
Open
Scope
pcm_scope
.
...
...
world_prop.v
View file @
3ecc3dc6
...
...
@@ -80,8 +80,20 @@ Module WorldProp (Res : PCM_T).
Lemma
isoR
T
:
ı
(
ı
'
T
)
==
T
.
Proof
.
apply
(
UF_id
T
).
Qed
.
Set
Printing
All
.
(* PreProp has an equivalence and a complete metric. It also has a preorder that fits to everything else. *)
Instance
PProp_ty
:
Setoid
PreProp
:
=
_
.
Instance
PProp_m
:
metric
PreProp
:
=
_
.
Instance
PProp_cm
:
cmetric
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
.
(* Give names to the things for Props, so the terms can get shorter. *)
Instance
Props_ty
:
Setoid
Props
:
=
_
.
Instance
Props_m
:
metric
Props
:
=
_
.
Instance
Props_cm
:
cmetric
Props
:
=
_
.
Instance
Props_preo
:
preoType
Props
:
=
_
.
Instance
Props_pcm
:
pcmType
Props
:
=
_
.
End
WorldProp
.
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