Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Rodolphe Lepigre
Iris
Commits
37b6aba7
Commit
37b6aba7
authored
May 26, 2019
by
Robbert Krebbers
Browse files
Generalize `frac_auth_frag_discrete` to `≠ 1` fraction.
parent
9774b1ec
Changes
1
Hide whitespace changes
Inline
Side-by-side
theories/algebra/frac_auth.v
View file @
37b6aba7
...
...
@@ -43,7 +43,7 @@ Section frac_auth.
Global
Instance
frac_auth_auth_discrete
a
:
Discrete
a
→
Discrete
(
●
!
a
).
Proof
.
intros
;
apply
auth_auth_discrete
;
[
apply
Some_discrete
|]
;
apply
_
.
Qed
.
Global
Instance
frac_auth_frag_discrete
a
:
Discrete
a
→
Discrete
(
◯
!
a
).
Global
Instance
frac_auth_frag_discrete
q
a
:
Discrete
a
→
Discrete
(
◯
!
{
q
}
a
).
Proof
.
intros
;
apply
auth_frag_discrete
,
Some_discrete
;
apply
_
.
Qed
.
Lemma
frac_auth_validN
n
a
:
✓
{
n
}
a
→
✓
{
n
}
(
●
!
a
⋅
◯
!
a
).
...
...
Write
Preview
Supports
Markdown
0%
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!
Cancel
Please
register
or
sign in
to comment