Skip to content
Snippets Groups Projects
Commit 37b6aba7 authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Generalize `frac_auth_frag_discrete` to `≠ 1` fraction.

parent 9774b1ec
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
theories/algebra/frac_auth.v
+ 1
− 1
View file @ 37b6aba7
...@@ -43,7 +43,7 @@ Section frac_auth. ...@@ -43,7 +43,7 @@ Section frac_auth.
Global Instance frac_auth_auth_discrete a : Discrete a → Discrete (●! a). Global Instance frac_auth_auth_discrete a : Discrete a → Discrete (●! a).
Proof. intros; apply auth_auth_discrete; [apply Some_discrete|]; apply _. Qed. 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. Proof. intros; apply auth_frag_discrete, Some_discrete; apply _. Qed.
Lemma frac_auth_validN n a : ✓{n} a → ✓{n} (●! a ⋅ ◯! a). Lemma frac_auth_validN n a : ✓{n} a → ✓{n} (●! a ⋅ ◯! a).
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment