Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
Iris
Fairis
Commits
9f597f7b
Commit
9f597f7b
authored
Jan 19, 2016
by
Ralf Jung
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
add a (CM)RA instance for the unit type
parent
d8a82b35
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
21 additions
and
0 deletions
+21
-0
modures/cmra.v
modures/cmra.v
+3
-0
modures/ra.v
modures/ra.v
+18
-0
No files found.
modures/cmra.v
View file @
9f597f7b
...
...
@@ -296,6 +296,9 @@ Section discrete.
End
discrete
.
Arguments
discreteRA
_
{
_
_
_
_
_
_
}
.
(
**
CMRA
for
the
unit
type
*
)
Canonical
Structure
unitRA
:
cmraT
:=
discreteRA
().
(
**
Product
*
)
Section
prod
.
Context
{
A
B
:
cmraT
}
.
...
...
modures/ra.v
View file @
9f597f7b
...
...
@@ -231,3 +231,21 @@ Ltac solve_included :=
ra_reflection
.
quote
;
apply
ra_reflection
.
flatten_correct
,
(
bool_decide_unpack
_
);
vm_compute
;
apply
I
.
(
**
An
RA
for
the
unit
type
*
)
Instance
unit_valid
:
Valid
()
:=
λ
x
,
True
.
Instance
unit_unit
:
Unit
()
:=
λ
x
,
x
.
Instance
unit_op
:
Op
()
:=
λ
x
y
,
tt
.
Instance
unit_minus
:
Minus
()
:=
λ
x
y
,
tt
.
Instance
unit_ra
:
RA
().
Proof
.
split
;
done
.
Qed
.
Instance
unit_empty
:
Empty
()
:=
tt
.
Instance
unit_empty_ra
:
RAIdentity
().
Proof
.
split
;
done
.
Qed
.
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